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PREFACE 



The features of USASI COBOL/MASTEB specified In this manual conform to the United States of 
America Standards Institute (USASI) COBOL Standard. The USASI specifications define a Nucleus 
for internal processing and eight functional processing modules: Table Handling, Sequential Access, 
Random Access, Eandom Processing, Sort, Report Writer, Segmentation, and Library. The 
Nucleus is divided into two levels, low and high. 

USASI COBOL/MASTER is implemented at the high level of the Nucleus. Of the modules, only 
Random Processing and Segmentation are not implemented. All other modules are implemented 
at the high level. The Report Writer module can be omitted from the COBOL library. USASI 
COBOL/MASTER runs under control of the MASTER operating system. 

Additional features of COBOL are implemented in USASI COBOL/MASTER to facilitate operating and 
to support system interfaces. The inclusion of COBOL features over and above the USASI standard 
is not prohibited by the standard; however, an installation option is available to diagnose all non- 
USASI features as errors at compile time. 

The Business Data Processing Unit (3312) must be present to compile and execute USASI COBOL/ 
MASTER programs on a CONTROL DATA® 3300 computer. The CONTROL DATA® 3500 computer 
comes eqmppedwith the Business Data Processing hardware. 

This manual is organized in the traditional manner of Identification, Environment, Data, and Pro- 
cedure Divisions with the exception of the Report Writer and Library modules which are described 
in separate chapters. 
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INTRODUCTION 



INTRODUCTION TO COBOL 

COBOL (Common Business Oriented Language) is a programming language which uses English terms 
to simplify the programming of business data processing problems. This manual presents the details 
and rules for writing a program in USASI COBOL/MASTER for the CONTROL DATA® 3300 and 3500 
computers. Familiarity with basic COBOL is desirable, but not essential. This introduction con- 
tains a brief outline of the COBOL language elements, program structure and content. Used in 
conjunction with the rest of the manual, it provides the new user with an introduction to the funda- 
mentals of COBOL programming. 



LANGUAGE ELEMENTS 

The COBOL language is made up of the following elements: 

COBOL reserved words 

User-defined words 

Literals 

Level numbers 

Symbols 

Pictures 

The user composes user-defined words, literals, and pictures according to rules that govern the 
choice and arrangement of characters. Within the limits imposed by the rules, it is virtually 
possible to compose an infinite number of words, literals, and pictures. 

The COBOL'reserved words, symbols, and level numbers are presented in fixed sets from which the 
user selects what he needs. He cannot Invent new reserved words, symbols, or level numbers and 
must use these elements according to the rules of the language. 

The sample COBOL soiorce program entry below shows all six elements: 

^ .DATA-NAME-1, .PICTURE, iKXX, yALUE, ^12. . 




level user-defined \ picture / literal symbol 

number word ^/^t,^t ■ j 

COBOL reserved 

words 
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COBOL Reserved Words 

Over 250 English words and abbreviations have been set aside as COBOL reserved words. (Appendix 
C contains a complete list of these reserved words.) Special meanings have been assigned to these 
words; the user 

• Does not define reserved words 

• Cannot change the meaning of a reserved word 

• Cannot add words to the reserved word list 

• Cannot substitute other words for those on the list 

• Must not alter or misspell reserved words 

• May use reserved words only for specified purposes 

Tha reserved words have various purposes as defined in the reference formats. They may identify 
program units, such as SECTION, PROCEDURE, WORKING-STORAGE. They may identify parts of 
entries, such as VALUE, PICTURE, USAGE. They may specify actions like WRITE, PERFORM, 
DIVIDE. They may have specific functional meanings such as NEGATIVE, COMPUTATIONAL, 
EQUAL, As figurative constants, they can represent specific data values: ZERO, SPACES, LOW- 
VALUE, (A complete list of figurative constants is given in appendix B.) 

User-Defined Words 

The user must supply words that name data items, data conditions, and procedures. These words 
have no preassigned meaning, but they must be defined within the program in which they are used. 
The formation of these words is governed by the following rules: 

• A word may be up to 30 characters long. 

• It may contain letters (A through Z) , digits (0 through 9) and the hyphen (-) . 

• Only procedure names may be entirely numeric; all other words must contain at 
least one letter. 

• A word may neither begin nor end with a hyphen. 

• Spaces (blanks) must not appear in a word. 

• It must not be spelled exactly like a reserved word. 

The example below contains user-defined words as well as reserved words and symbols. 



,ADD-DEDUCTIONS 




reserved words 



STATE-UNEMPL , , UNITED „ j MISC, 'GIVING J'OT-DED 

i 
user-defined 

words 



viu 
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Appendix B contains a detailed description of the formation of different types of user-defined words 
such as data -names, condition-names, procedure -names, and so forth. 



literals 

literals are a special case of user-defined words. They are actual values used in the program and 
as such are self -deflnli^ . Literals may be numeric or non-numeric , 

A numeric literal is a strirg of digits that may Include a plus or minus sign, and a decimal point. 
Its value is the quantity represented by the characters in the literal. Every numeric literal is 
classed as a numeric item. 

A non-numeric literal is a string of one to 120 characters enclosed in quotation marks from the 
computer's character set {appendix B). It may contain reserved v.'ords and spaces but not the 
quotation mark. The value of a non-numeric literal is the string of characters excluding the quota- 
tion marks. Non-nimieric literals are classed as alphanumeric items. 

Rules governing the formation of literals are given in appendix B . 

The following examples show the use of literals in an entry: 

DIVIDE |1.8| INTO CONVERTED-TEMPl GIVING TEMP-2. 

^numeric literal 

77 HEADING-A PICTURE X(10) VALUE IS ."COBOL LIST", . 

^^~~ non-numeric literal 

Level Numbers 



Level numbers (01 through 49, 66, 77, and 88) are used in entries that assign names to data items 
and data values. They designate the level of the entries relative to each other. 

Numbers 01 through 49 designate the hierarchy of data entries Within records. 01 is always assigned 
to the record itself; 02 through 49 are assigned to items within the record. Level numbers need not 
be consecutive but must be ordered so that the higher the number, the lower the entry in the 
hierarchy. 

Level number 66 designates an entry that renames a previously defined entry. It is always used with 
the reserved word RENAMES. 

Level number 77 designates an Independent data item, one that is not part of a record. 

Level number 88 is used with entries that assign condition names to specific values a data item may 
assume. 
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Whenever a level number Is used, it is the first element in the entry. 
The entries below show how level numbers are used: 



level 
numbers 



,77, ITEM-A PICTURE XX VALUE 01. 

UPDATE-RECORD. 
,02, EECORD-ID. 

4, CODE-NUMBER PICTURE X. 
.h8S NEW-CODE VALUE "A". 
OLD-CODE VALUE "B". 
£4, ACCOUNT-NUMBER PICTURE 999, 
Q2, CUSTOMER-IDENTIFICATION. 

m RETAIL-ID RENAMES CUSTOMER-IDENTIFICATION. 




Symbols 

Symbols are special characters which have specific meanings for the compiler. Symbols are used 
in punctuation, as operators in arithmetic expressions, as relational operators in conditions, and 
as editing symbols in pictures. The COBOL Character Set in appendix B lists all the symbols 
available to the COBOL programmer. Punctuation rules are given in appendix B, the rules for 
arithmetic and conditional operators in chapter 4, and picture symbols in chapter 3, 



Pictures 

Pictures describe such characteristics of data items as: 

• Size of item 

• Class of item: nimieric, alphabetic, or alphanumeric 

• Whether the item is signed 

• Position of an assumed decimal point 

• Editing (deletion, insertion, or replacement of characters) to be performed on the item 

Each picture is a string of from 1 to 30 characters. Pictures are composed of the characters listed 
under PICTURE in chapter 3, In general, the number of characters defines the size of the item and 
the character itself defines the class: X=alphanumeric , 9=numeric, A=alphabetic . A picture may be 
abbreviated by enclosing an integer in parentheses to show the size immediately after the character 
defining the class. For instance, X(20) means the same as 20 X's in a row; both mean that the item 
consists of 20 alphanumeric characters. 
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The word PICTURE or the words PICTUEE IS or the abbreviation PIC always precedes the picture 
itself in an entry. 

Examples of pictures in entries: 



02 FILLER PICTUEE 'X(87: 
02 STOCK-ITEM PIC ,999,.^ 



PEOGEAM STRUCTURE 



; pictures 



A COBOL source program is composed of entries organized into divisions, sections, and paragraphs. 
In general, a division is made up of sections, and a section is made up of paragraphs. 



Divisions 

All COBOL programs consist of four divisions each with a fixed name: IDENTIFICATION, 
ENVIRONMENT, DATA, and PROCEDURE. The divisions always appear in that order in a program. 

The beginning of each division is marked by a division header entry consisting of the name of the 
division followed by the word DIVISION and a period. The di\asion header always appears on a line 
by itself. 



Sections 

The Inclusion of sections depends on the particular division. There are no sections in the Identification 
Division, The Environment and Data Divisions always have sections and these sections have fixed 
names. Sections are optional in the Procedure Division, and when sections are included, the section 
names are supplied by the user. 

Each section is identified by a header entry consisting of the section name followed by the word 
SECTION and a period. A section header usually appears on a line by Itself. 



Paragraphs 

All divisions except the Data Division contain paragraphs. Paragraph names in the Identification and 
Environment DLvislons are fixed. In the Procedure Division, paragraph names are user defined. 

Paragraphs are identified by header entries conslstirg of a name followed by a period and a space. 
A paragraph header need not appear on a line by itself; it must be the first entry on a line, but may 
be followed on the same line by one or more entries in that paragraph. 
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Entries 

An entry is one or a series of language elements terminated by a period and a space. The precise 
sequence of elements in each entry is dictated by the format rules contained in this manual. 



Sample Division showing structural units 



division 



entries 



sections 



paragraphs 






L C 
E 
" E 



ENVIEONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. 
3500, 

OBJECT-COMPUTER. 
3500. 

INPUT-OUTPUT SECTION, 

FILE-CONTROL. 

SELECT OLD-MASTER-FILE 
ASSIGN TO TAPE 01, 

SELECT NEW-MASTER-FILE 
ASSIGN TO TAPE 02, 



PROGRAM CONTENTS 

A COBOL source program must be identified, it must specify linkage between the computer system 
and the data files to be processed, it must define the data to be processed, and finally it must specify 
how the data is to be processed. A COBOL source program consists of the information required to 
perform these fimctions organized into the four required divisions. 



Identification Division contains the information that identifies the prc^ram. At the very least, this 
division states the program name. In addition, it may contain the date the program was written, the 
date compiled, the author, the installation, and any remarks that might be useful to someone 
reading the program , 



Xll 
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Enviromnent Division contains information about the equipment used to compile and execute the pro- 
gram . Its primary function is to assign each data file by name to an input-output device and to 
specify any special input-output techniques. 



Data Division contains a full description of the data to be processed by the object program. In the 
File Section, it describes the data items that make up each of the files named in the Environment 
Division, In the Working -Storage section it describes the data items used for constants and for data 
developed during execution of the program. If the program is divided into subprograms, the Common- 
Storage Section contains descriptions of data common to more than one subprogram. The Report 
Section contains a description of data to be output on a printed report in terms of the format in which 
it will be presented. 

Data Division entries show how data items are grouped and organized into files and records. Data 
names, level numbers, pictures, and other information are contained in these entries. 



Procedure Division specifies the actions required to process the data and it indicates the sequence 
of processing. The basic fimctions of this division are input-output, arithmetic, data movement, 
and sequence control. In addition, it provides the user with the capability to sort files, search 
tables, and write reports. 



REFEEENCE FORMATS 

Each COBOL entry is described in terms of a reference format. Throughout this manual a format 
is shown adjacent to information defining the entry. When more than one specific arrangement is 
permitted, the format is separated into numbered formats. 



Notation Used in Reference Formats 
UPPER CASE 

UNDERLINED UPPER CASE 
lower -case -words 

level numbers 
[ ] Brackets 



words are COBOL reserved words . They must be spelled 
correctly including any hyphens and may not be used in a 
source program except as specified in the reference formats . 

words are required when the format in which they appear 
Is used. They define the action of the compiler. 

are generic terms which represent the words or symbols 
supplied by the user. When generic terms are repeated 
in a format, a number or letter is appended to the term for 
identification. 

are one- or two-digit numbers that precede entries in the 
Data Division to indicate the hierarchy level of entries. 

enclose optional portions of a reference format. All of the 
format within the brackets may be omitted or Included at 
the user's option. 
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I [Braces enclose two or more vertically stacked items in a reference 

format when only one of the enclosed items can be used. 

, . . Ellipses immediately foUowii^ a pair of brackets or braces indicate 

that the enclosed material can be repeated at the user's 
option. 

Punctuation symbols (period, comma, semicolon) shown within the formats are required unless 
enclosed in brackets and specifically noted as optional. 



Notation used in Examples 

i indicates the position of an assumed decimal point in an Item. 

A plus or minus sign above a numeric character (n) indicates an operational sign is stored 
in combination with the numeric character. 

Character positions in storage are shown by boxes, 
An empty box means an impredictable result. 

A indicates a space (blank). 



A 


B 


C 


D 
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XIX 



IDENTIFICATION DIVISON 



1.1 

SPECIFICATION OF 

IDENTIFICATION 

DIVISION 



The Identification Division specifies the information to identify the source 
program and the output from compilation. It must include the program name, 
and may also include the date the program was written, the date compiled, 
and so forth. Information specified in this division is included in the listing 
of the source program, but only the PROG RAM -ID clause affects the object 
program . 



IDENTIFICATION DIVISION. 



PROGRAM-ID. prc^ram-name. 
[AUTHOR, comment -paragraph.] 
[INSTALLATION, comment-paragraph,] 
[ DATE-WRITTEN, comment -paragraph.] 
[DATE-COMPILED, [comment-paragraph.]] 
[SECURITY, comment-paragraph.] 
[REMARKS, comment-paragraph.] 



The header IDENTIFICATION DIVISION begins in column 8 of the first line 
and is followed by a period and a space . The name of each succeeding para- 
graph is specified on a new line; each begins in column 8 and is followed by 
a period and a space. The comment paragraphs are any combination of 
characters from the COBOL character set (appendix B) organized to con- 
form to sentence and paragraph structure. Only the PROG RAM -ID paragraph 
is required. 
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1.1.1 

PROGRAM-ID 



The PROGRAM -ID paragraph gives the name by which the program is 
identified. 



PROGRAM-ID . program -name. 

The program name is a word and must conform to the rules for forming a 
word (appendix B) . The program name identifies the source program , the 
object program, and all listings pertaining to the program. The first seven 
characters of this name must be unique within the COBOL source program. 



1.1.2 

DATE-COMPILED 



DATE -COMPILED 

The DATE -COMPILED paragraph provides the compilation date in the 
Identification Division source program listing. 



DATE-COMPILED , [comment -paragraph.] 

The paragraph name DATE -COMPILED causes the current date to replace 
the comment par^raph during program compilation. 

The remaining paragraphs in the division supply documentary information 
and if specified, will appear in the source program listing. 



1-2 
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ENVIRONMENT DIVISION 



2.1 

SPECIFICATION OF 
ENVIRONMENT 
DIVISION 



The Environment Division describes aspects of a COBOL program that depend 
on the physical characteristics of a specific computer. This division must be 
rewritten and the entire source program recompiled when the object program 
is to be run on different computers. 

The Environment Division specifies the configuration of the compiling com- 
puter and the object computer. In addition, information relatirg to input- 
output control, special hardware characteristics, and control techniques can be 
specified. The information in the Environment Division is specified in two 
sections: The Configuration Section specifies the characteristics of the 
source computer and the object computer. The Input-Output Section specifies 
the information needed to control transmission and handling of data between 
external devices and the object program. 



ENVIRONMENT DIVISION. 



CONFIGURATION SECTION. 

SOURCE-COMPUTER, source-computer entry. 

OBJECT-COMPUTER, object-computer entry. 

fSPECIAL-NAMES. special-names entry.] 
INPUT-OUTPUT SECTION. 
[FILE-CONTROL, file -control entry.] 
P-O-CONTROL. input-output-control entry.] 



The Environment Division must begin with the header: 
DIVISION followed by a period and a space . 



ENVIRONMENT 
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2.2 

CONFIGURATION 

SECTION 



2.2.1 

SOURCE-COMPUTER 



2.2.2 

OBJECT COMPUTER 



This paragraph describes the computer upon which the program is to be 
compiled. 



j SOURCE -COMPUTER. COPY statement. 



1 SOURCE-COMPUTER, computer-name . 



COPY is used only when the COBOL library contains the complete text of 
the SOURCE-COMPUTER paragraph. The COPY statement is described 
in section 6.1. 

Computer name is a word which must appear as the first entry following 
SOURCE-COMPUTER. 3300 and 3500 are the only words permitted as 
computer names in this paragraph. The SOURCE-COMPUTER paragraph 
is used for documentation only, and has no effect on the object program. 



This paragraph describes the computer on which the program is executed. 
OBJECT-COMPUTER. COPY statement. 



OBJECT-COMPUTER, computer-name 

S WORDS ) 

CHARACTERS > 
MODULES 






COPY is used only when the COBOL library contains the complete OBJECT- 
COMPUTER paragraph. The COPY statement is described in section 6. 1. 

Computer name is a word and must appear as the first entry following the 
paragraph name OBJECT-COMPUTER. The computer names may be either 
3300 or 3500. The integer memory size may be any value and may include 
alphabetic characters. 

This paragraph is used for documentation purposes only and has no effect 
on the object program . 

Example: 

OBJECT-COMPUTER. 3500 MEMORY SIZE 262K WORDS. 
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2.2.3 

SPECIAL NAMES This paragraph assigns special control characters and implementor names to 

user defined mnemonic names. Two clauses permit the specification of non- 
standard currency conventions. If none of these features is required, this 
paragraph may be omitted. 

Format 1: 

SPECIAL-NAMES . COPY statement. 

Format 1 is used only when the COBOL library contains the entire description 
of all SPECIAL-NAMES used in the program. The COPY statement is des- 
cribed in section 6.1. 

Format 2: 

SPECIAL-NAMES , [implementor-name IS mnemonic -name] . . . 
[ , literal IS mnemonic -name] 
[, CUEBENCY SIGN IS literal] 
[. DECIMAL-POINT IS COMMA] . 

Each mnemonic name defined under SPECIAL-NAMES must be unique within 
the source program . 

implementor-name IS mnemonic -name 

Implementor names are restricted to the following hardware names: 

SYSTEM-INPUT SYSTEM-PUNCH 

SYSTEM-OUTPUT CONSOLE 

Mnemonic names must be used in references to system files or the console in 
an ACCEPT or DISPLAY statement in the Procedure Division. 

literal IS mnemonic -name 

The non-nimieric literal is a one-character identifier used in either of the 
foUowir^: 

carriage control in the WBITE ADVANCING mnemonic-name LINES 
statement 

record prefix code in the CODE clause of the Beport Description 
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CURRENCY SIGN IS literal 

The non-numeric literal is used in the PICTURE clause to represent a currency 
symbol other than the $ (dollar sign) • Alternate currency symbols are used for 
foreign currency. The literal must be a single character and may not be any of 
the following; 

digits 0-9 

alphabetic characters ABCDEPRSVXZ 

space 

special characters * + - , . ; ( ) " 

If the CURRENCY SIGN clause is absent, only $ (dollar sign) may be used as 
a currency symbol in a PICTURE clause. 

DECIMAL-POINT IS COMMA 

This clause Indicates that the function of comma and period are exchai^ed in 
any PICTURE clause character string and in numeric literals. This clause 
is useful for specif jdng foreign currency. 

Example: 

SPECIAL-NAMES. 

SYSTEM-OUTPUT IS PRINT, 

'A' IS EJECT, CURRENCY SIGN IS 'M', 

DECIMAL-POINT IS COMMA. 



2.3 

INPUT - OUTPUT 

SECTION This section consists of the header INPUT-OUTPUT SECTION and the two 

paragraphs FILE-CONTROL and I-0-CONTROL. If neither paragraph is 

used, the entire section can be omitted. 
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2.3.1 

FILE-CONTROL 



This paragraph names each file, identifies the file device, and allows particular 
hardware assignment. It also specifies alternate input -output areas, the access 
mode and file limits of mass storage files, and the key to accessing random 
access files. 



Format 1: 

FILE-CONTROL . COPY statement. 

Format 1 is used only when the COBOL library contains the entire text of the 
FILE-CONTROL paragraph. The COPY statement is described in section 6.1. 

Format 2: 
FILE-CONTROL. 



SELECT r OPTIONALl file-name-1 



[, RENAMING file-name-21 

ASSIGN TO [integer-1] hardware -name -1 dsi-1 

j-rtui ^-j 

j_ '(hardware -name -2 dsi-2f J 
[,FORMULaPLE{^}] 

[.HESEHVE { 1^^-^ } ALTBBNATE [{^Js}]] 

r ( FILE -LIMIT IS ) . ^ „ rr,.„^xx . . 1 

I '1 FILE-LIMITS ^Er ^nteger-S [THRU integer-4]] 



. ACCESS MODE IS 



(-RANDOM 



}] 



— i SEQUENTIAL | 
[. PROCESSING MODE IS SEQUENTIAL ] 
[. ACTUAL KEY IS data-name-11. 



If flle-name-1 is a sort file, only the SELECT and ASSIGN clauses are included 
in the FILE-CONTROL paragraph. If file-name-1 is in the USING or GIVING 
options of the SORT verb, FOR MULTIPLE REEL/UNIT and RESERVE clauses 
may be included in addition to the required SELECT and ASSIGN clauses. (See 
SORT, section 4.7.24). 
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SELECT [ OPTIONAL1 file -name -1 

The SELECT clause is required for each file described in the Data Division. 
Each file is named only once as file-name-1 in the FILE-CONTROL para- 
graph following the key word SELECT. Each selected file must have a file 
description entry in the Data Division of the source program unless a RE- 
NAMING clause relates the selected file to a file that is the subject of another 
SELECT clause. The SELECT clause for the renamed file must not contain 
the RENAMING option. 

The key word OPTIONAL is required for input files that are not necessarily 
present each time the object program is run. 



RENAMING file-name-2 

If the RENAMING clause is used, file-name-1 uses the file description entry, 
including the associated record description already specified for file-name-2. 
The files do not share the same area unless the SAME AREA clause appears 
in the I-O-CONTROL paragraph. File-name-1 is essentially a duplicate of 
file-name-2 except that file-name-1 has its own FILE-CONTROL paragraph 
entry. File-name-2, the renamed file, may not be a sort file. 

ASSIGN TO [integer- 1] hardware -name -1 dsi-1 

rftui n 

L '(hardware -name -2 dsi-2,1 J 

AH files used in the program must be assigned to an input or output device 
(hardware name) . 

Allowable hardware names are as follows: 

READER SYSTEM-INPUT TAPE TTY (teletypewriter) 

PRINTER SYSTEM-OUTPUT DISK CRT (211 display) 

PUNCH SYSTEM-PUNCH SCRATCH 

Each hardware name, except SYSTEM-INPUT, SYSTEM-OUTPUT and 
SYSTEM-PUNCH must be accompanied by a data set identifier (dsi) . The 
dsi is a 1-4 character alphanumeric identifier used by MASTER and the 
input-output control system for all references to this file during the running 
of the program. It must not begin with an asterisk (*) , and may not be INP, 
OUT, PUN or any COBOL reserved word. 

Integer-1 indicates the number of input -output units of a given hardware name 
assigned to the file name. This option is used for documentation purposes 
only. 
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If alternating tape units are to be used, each must be given a unique dsi. 
Each file on a multi-file reel must have the same dsi. System files do not 
require dsi. 

Examples : 

SELECT PAY -FILE ASSIGN TO TAPE Al, TAPE B2. 
SELECT PAY -FILE ASSIGN TO DISK MSOl. 

When a file is assigned to hardware names TTY and CET, a second identifier 
code, terminal unit identifier, must follow the dsi. (When the hardware -name 
is TTY or CRT, only one hardware-name may be specified.) The terminal 
unit identifier (tui) is a 1-4 character alphanumeric code used by MASTER 
and the input -output control system to determine the local terminal unit as- 
sociated with the assigned file. This identifier must match the code assigned 
to the device when it is entered into the MASTER operating system hardware 
unit table. For further information concerning the tui, refer to the MASTER 
2.0 Reference Manual Pub. No. 60213600 and applicable installation procedures 
doc um entati on . 

Examples: 

SELECT TWX-FILE ASSIGN TO TTY ABS AOOl. 
SELECT DISPLAY-FILE ASSIGN TO CRT DEF BO 10. 

All equipment assigned, except TTY and CRT, must be scheduled on the 
$SCHED card. Additionally, if the system printer, reader or punch are 
to be used directly by the program they must be preempted from MASTER 
with a $DIRECT card. (See Section 7, Source Program Preparation, Com- 
pilation and Execution) . 

SCRATCH files are automatically allocated by the I-O control system in the 
system scratch file area. These files exist only for the duration of the job 
and are released by MASTER at the end of each job. They may be processed 
and used in all respects as a sequential mass storage file might be used. 
Scratch area for these files must be scheduled with the $SCHED card (section 
7.3.2). 

If file-name-1 is a file, only the ASSIGN clause can follow the key word 
SELECT in the FILE-CONTROL paragraph (section 4.7,24, Sort). 
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FOR MULTIPLE {|^} 

The MULTIPLE EEEL clause must be included whenever the number of tape 
units assigned, explicitly or implicitly, might be less than the number of 
reels in the file. The MULTIPLE UNIT clause must be included whenever 
the number of mass storage devices assigned might be less than the number 
of mass storage units in the file . This can occur when the file is assigned 
to disk packs. If a random file is located on multiple disk packs, all such 
packs must be mounted on the drives at the time the file is opened. 

M-SYE 1^^"-'} ALTERNATE [{^fj] 

The RESERVE clause allows the user to modify the number of input -output 
areas allocated by the compiler. The option RESERVE integer-2 ALTERNATE 
AREAS reserves integer-2 areas for the file in addition to the minimum area. 
Two additional alternate areas may be assigned for unblocked files, one for 
blocked files . The NO ALTERNATE AREAS option is documentary only. This 
clause does not apply to random files. Blocked random files have one alternate 
area; unblocked, no alternate areas. Alternate areas are never allocated to 
files assigned to TTY and CRT. All integers must be positive. 

f FILE-LIMIT IS 



f FILE-LIMIT IS ) . 

1 FILE-LIMITS"1rE i ^"teger-3 [THRU mteger-4] 



The FILE-LIMIT clause is applicable only to permanent mass storage files 
which will be internally allocated and/or expanded by the input-output con- 
trol system at object time. Integer-3 indicates the number of blocks to be 
initially allocated to the file. The THRU integer-4 option applies only to 
sequential files . 

During program execution the file limits logic operates as follows: 

When an OPEN request is made on a mass storage file, the input -output 
control system attempts to open the file throi;gh the MASTER operatii^ 
system. If the request to MASTER is rejected because the file does not 
exist, an internal allocation is performed, using the information furnished 
in the file description entry for the file. Open processing then continues 
in a normal manner. 

If the allocated area is exceeded and the user has specified the THRU 
integer-4 option, the I-O control system autom.atically expands the file by 
ten percent of integer-3, This expansion may continue until the file reaches 
the maximum limit indicated by integer-4. 
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The ACCESS MODE clause must be included for mass storage files. When 
ACCESS MODE IS SEQUENTIAL, the mass storage records are obtained or 
placed sequentially. That is, the next logical record is made available from 
the file on execution of a EEAD statement, or a specific logical record is 
placed into the file on execution of a WRITE statement. No ACTUAL KEY 
entries are necessary for the SEQUENTIAL mode. 

When ACCESS MODE IS RANDOM, mass storage records are organized 
randomly and records are retrieved according to the contents of the ACTUAL 
KEY data name. 



PROCESSING MODE IS SEQUENTIAL 

This clause specifies that mass storage records are processed in the order 
in which thev are accessed; it is documentary only. 



ACTUAL KEY IS data-name-1 

The ACTUAL KEY clause must be specified for random access files. The 
mass storage control system obtains or writes each record randomly. The 
specific logical record is located through data-name-1 of the ACTUAL KEY 
clause and is made available on execution of a READ statement. When a 
WRITE statement is executed for a random access file, effectively, the 
record is placed at the location in the file specified by data-name-1 of the 
ACTUAL KEY clause. Mass storage records in a random file are processed 
in the order in which they are accessed. 

If a SEEK statement is executed prior to a READ or WRITE, the location of 
the record as specified by the value of data-name-1 is made available to the 
next READ or WRITE executed. 

If no SEEK is issued, the record is automatically located from the value of 
data-name-1 upon execution of a READ or WRITE. The user is responsible 
for setting the value of data-name-1 prior to execution of each SEEK or 
READ or WRITE statement associated with a random access file. 

Data-name-1 is a 12-character numeric group item, subdivided into two 
fields. The first is a seven-character block number indicating the relative 
position of this block from the beginning of the file (1 = the first block, etc.) . 
The second field Is a five-character position number giving the first character 
position of the record relative to the beginning of a block (0 = the first char- 
acter, etc.). 
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The ACTUAL KEY item should be defined in the Data Division as follows; 

01 RECORD- ADDRESS. 

02 BLOCK-NUMBER PIC 9(7) . 
02 RECORD-POSITION PIC 9(5). 

If data-name-1 points to the location of a record outside the specified file 
limits, the INVALID KEY clause of the READ or WRITE is executed. 

The ACTUAL KEY clause is optional for sequential access files. If it is 
specified, the input-output control system updates data-name-1 by the 
followir^ rules: 

After a WRITE is executed, the contents of the ACTUAL KEY data item 
are always implicitly updated. 

Before a READ is executed, the contents of the ACTUAL KEY data item 
are implicitly updated only if the READ was not logically preceded by a 
WRITE. 

Since implicit updating of the ACTUAL KEY data item is a function of the 
input -output control system, chaises made by the programmer to the ACTUAL 
KEY data item do not affect the mass storage file processing; but they may 
result in unpredictable values if the programmer makes subsequent reference 
to the contents of the ACTUAL KEY data item . 



2.3.2 

l-O-CONTROL The I-O-CONTROL paragraph specifies the points at which rerun is to be 

established, the memory area to be shared by different files, and the loca- 
tion of files on a multiple-file reel. 

Format 1; 

I-O-CONTROL. COPY statement. 

Format 1 is used only when the COBOL library contains the complete text of 
the I-O-CONTROL paragraph. The COPY statement is described in section 
6.1. 
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Format 2: 



I-0-CONTBOL. 

RERUN ON hardware-name-3 dsi-3 
(end OF fKEEL) 



EVERY 



( integer- 1 



/ 



( UNIT j 
RECORDS. 



OF file -name -3 



; SAME 



y SORT V 
I RECORD / 



AREA FOR file -name -4 <^, file-name-5 



{• 



4 



n MULTIPLE FILE TAPE CONTAINS file-name-6 [ POSITION integer-31 
[, file-name-7 [POSITION integer-4n . . .1 . . . . 

This paragraph is optional. The file name of a sort file cannot appear in a 
RERUN or MULTIPLE FILE option; nor can a sort file name appear in the 
SAME clause, unless the RECORD option is used. The END OF UNIT option 
may be used only if file-name-4 is a sequentially accessed mass storage file. 

RERUN ON hardware-name-3 dsi-3 EVERY 

(END OF jSEELl | 
I ( UNIT / > 

hnteger-1 RECORDS ) OF file-name-3 

If the RERUN clause is specified, the contents of memory and of all necessary 
registers and the position of all files during execution are saved on the device 
specified by hardware-name-3. This device may be either magnetic tape or 
mass storage. If the dump file is to be on mass storage, the file must be 
allocated. In either case, it must be opened prior to execution with a *DEF 
card. The dsi parameter on the OPEN card must be identical to that specified 
in dsi-3. 

The rerun dump can be used to restart execution at the point where a dump was 
taken (chapter 9, Source Program Execution). If the END OF REEL/UNIT 
option is used, a rerun dump is taken at the end of every reel or unit of the file 
named in file-name-3. The END OF UNIT condition occurs when the next se- 
quential physical record is in a file segment of a disk pack other than the pack 
currently mounted on the device assigned to the file. 

If the integer-1 RECORDS option is used, a rerun dump is taken each time the 
number of physical records specified by integer-1 is read from or written on 
the device associated with file-name-3. 
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SAME 



r SORT H AREA FOR file-name-4 L file-name-5 [ 
[I RECORD) J r i 



This clause specifies that two or more files are to use the same memory area 
during processing. If the RECORD option is specified, the files, including any 
sort -files, share only the area in which the current logical record is processed. 
Several files may be open at the same time but the logical record of only one 
file can reside in the record area at one time. 

If the SORT option is used, one or more file names representing sort files may 
appear within the set of file names. For each sort file, the SAME SORT AREA 
clause is interpreted as follows: 

The SORT statement referring to the sort file and any associated input or 
output procedures can use all buffer storage associated with the other files 
in the SAME SORT AREA clause. All other files are thus guaranteed to be 
closed throughout operation of the SORT statement and any associated in- 
put or output procedures. 

Files other than sort files in the SAME SORT AREA clause do not share 
the same storage area. If other files are to share the same storage area, 
the user must write a SAME RECORD AREA clause. 

K a SAME AREA clause does not contain the RECORD or SORT option, the 
shared area includes all storage areas assigned to the files; therefore, no 
more than one file may be open at one time. 



MULTIPLE FILE TAPE CONTAINS file-name-6 [POSITION integer-3] . . . 

The MULTIPLE FILE clause is required when more than one file shares the 
same reel of tape. Regardless of the number of files on a sii^le reel, only 
those files used in the object program need be specified. If all file names 
have been listed in consecutive order, the POSITION option need not be given. 
If any file in the sequence is not listed, the POSITION relative to the begin- 
ning of the tape must be given. Not more than one file on the same tape reel 
may be opened at one time . 

Files on a multiple -file reel are handled in the same manner as other files 
except that OPEN and CLOSE perform the additional functions to locate each 
of the files on the reel. 

The input-output control system searches for and locates any file on an input 
multifile reel which the user opens. If the indicated file is further along tiie 
tape than the current position, the tape is skipped forward; otherwise, the 
tape is rewound, then skipped forward to the correct file. 
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The files on an output multifile reel are written in the order dictated by the 
logic of the program rather than the order in which they are defined in the 
MULTIPLE FILE clause. If an output multifile reel is to be used as input 
to the same program, the input-output control system assumes that the files 
were written in the order specified by the MULTIPLE FILE clause. 

The input -output control system assumes that all files on the multifile reel 
have the same type of labeling. 

Since no two files on a multifile reel may be open simultaneously, they share 
buffer and record areas automatically. No file which shares a reel with 
another file can extend across reels; that is, a file cannot be on a multifile 
reel and also be multireel. 
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DATA DIVISION 



The Data Division, required in every COBOL program, contains a full 
description of the data to be processed by the object program. The data 
falls into four categories: 

Data stored on external files 

Data common to more than one subprogram 

Constants and data developed during program operation 

Output reports 



3.1 

SECTIONS The Data Division is divided into four sections corresponding to the categories 

of data: 

DATA DIVISION. 
[ FILE SECTION. 1 
[COMMON-STORAGE SECTION.] 



[ WORKING-STORAGE SECTION. ] 
[ REPORT SECTION. ] 



The Data Division must begin with the header: DATA DIVISION followed by a 
period and a space. Each of the sections is optional; when present, they 
must be in the order of appearance shown in the format above. Each section 
header is followed by one or more sets of entries; the File Section and Report 
Section contain file descriptions followed by associated record description 
entries, the Working-Storage and Common-Storage headers are followed 
by data description entries for independent items, followed by record 
descriptions. 
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3.1.1 

FILE SECTION 



The File Section defines the contents of data files stored on an external de- 
vice and the contents of sort files. Each file is defined by a file description 
entry followed by one or more record description entries. A file description 
entry consists of a level indicator (FD or SD), a file name, and a series of 
independent clauses. An external file is described with a level FD entry which 
indicates recording mode, block size, labeling conventions, names of records 
or reports in the file, and so on. Every external file must have a level FD 
file description entry. Sort files are described with level SD entries which 
specify the name, size, and number of records to be sorted. 

FILE SECTION. 
FD file-name-1. . . 

01 data -name - 1. . . 

02 data-name-2. . . 

66 data-name-3 RENAMES data-name-2. 



03 data-name-4. 
01 data-name-5, . . 

02 data-name -6. . . 
88 condition-name-l. 



01 data-name-7. 
SD file-name -2. . . 



FD file-name-3. . . 



3.1.2 

COMMON-STORAGE 
SECTION 



During execution of an object program, independently compiled subprograms 
communicate through common storage. Each item in a Common Storage 
Section has a record description entry; all entries are preceded by the header 
COMMON-STORAGE SECTION and a period. All data structures permitted in 
the Working Storage Section are legal in the Common Storage Section. 



A Common Storage Section must be present in each independently compiled 
subprogram so that all references to common storage will be properly defined. 
The item descriptions in each Common Storage Section should be identical in 
format; if they are not, the contents of common storage in memory cannot be 
guaranteed. 
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The system loader loads only the first Common Storage Section encountered. 
Subsequent Common Storage Sections are ignored and all reference to common 
storage items in communicating subprograms are directed to the first Common 
Storage Section loaded. 



3.1.3 

WORKING-STORAGE 
SECTION 



During execution of an object program , intermediate results and other 
information need to be stored before being processed further or transferred 
out of memory. The storage areas, called working storage items, are 
contained in the Working Storage Section. 



The Working Storage Section is composed of the section header WORKING- 
STOEAGE SECTION followed by a period. This header is followed by any 
independent data description entries which are in turn followed by any record 
description entries. Each name of an independent item or a record must be 
unique. Subordinate data names need not be unique if they can be made unique 
bv aua^lifica^tion. 



COMMON-STORAGE SECTION. 



I WORKING-STORAGE SECTION. 



77 



data-name-1 

88 condition-name- 1 



77 data -name- 2 
01 data-name-3 

02 data-name-4 



66 data-name-5 RENAMES data-name-4 
01 data-name-6 

02 data -name -7 

03 data-name-3 

88 condition-name-2 
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3.1.4 

REPORT SECTION 



3.2 

DATA DIVISION 

CONCEPTS 



The Report Writer enables the user to specify the format of reports 
generated by a COBOL program. The Report Section is included when 
the Report Writer module is used. The content and format of reports are 
described in the Report Section. The header REPORT SECTION and a period 
is followed on succeeding lines by entries describing the physical format of 
each report to be produced. 

Section 5 contains a complete description of the Report Writer and Report 
Section entries. 

REPORT SECTION. 



RD report-name-l 

01 [data -name- 1) 

02 [data -name -2] 



02 [data -name -3] 
01 [data-name-4] 
01 [data-name-5] 



01 [data-name-6] 
RD report -name-2 



3.2.1 

ENTRY 



The basic unit of description for the data in all sections is an entry. Each 
entry consists of a level indicator or level number, a name which can be 
referenced elsewhere in the program, and one or more clauses describing 
the data item. The Data Division contains three types of entry: 

File description entries describe physical characteristics of a file. 

Record description entries describe characteristics of items used in 
the program. 

Report and report group description entries describe items generated 
as a report. 

The Working Storage and Common Storage Sections contain record descriptions 
only; the File Section contains file descriptions and record descriptions; the 
Report Section contains report and report group descriptions. 
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3.2.2 

ITEM 



An item is an area used to contain data of a particular kind. The COBOL 
language recognizes four kinds of items: 

elementary *^>'^ 

group 4v ** ^-^afc—^" 

independent 
report 

Elementary items are items that are not subdivided into smaller items. A 
group item is subdivided into smaller items which can themselves be group 
or elementary items. Group and elementary items may be used in all sections 
of the Data Division. Independent items are unrelated elementary items not 
contained in a record; each is defined by the special level number 77. Inde- 
pendent items are illegal in the File Section. Report- it^ms are group or 
elementary items that appear in a report. They may be used only in the 
Report Section (see Report Writer, section 5). 



3.2.3 

RECORD 



A record is the most inclusive item in the File, Working Storage or Common 
Storage Sections. It is usually, but not necessarily a group item. A record 
must have the level number 1 or 01 and a data name. Each item in a record 
must have at least a level number and a data name. In addition, any elementary 
items in a record must have at least a PICTURE or USAGE defined as INDEX, 
COMPUTATIONAL-1 , or COMPUTATIONAL-2. Data names of items not at 
the 01 level in a record need not be unique if they can be made unique by 
qualification. In the File Section only, data names at the 01 level need not be 
unique since they can be qualified by a file name. 



3.2.4 

LEVEL NUMBER 



The level number shows the hierarchy of data within a record description; 
the more inclusive an item, the lower its level number. Level numbers need 
not be consecutive as long as the less inclusive item has the higher number. 
The specific number is determined by the user. The first entry in a record 
description always has the level number 1 or 01 . Group and elementary items 
within a record have level numbers in the range 2-49. 

Special level numbers are assigned to certain entries where there is no real 
concept of level: 

66 identifies RENAMES entries. 

77 identifies independent items. 

88 identifies condition-name entries. 
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3.2.5 

DATA 



NAME 



Every entry must have a subject; that is, a name assigned to the item. This 
data name is used to reference the item from the Procedure Division. It 
must not be qualified or subscripted when used as the subject of a Data 
Division entry. 

The word FILLER may be used instead of a data name as the subject of an 
entry that is never referenced. It may name only an unused elementary item 
within a record. A record containing a FILLER item can be referenced from 
the Procedure Division, although the FILLER item itself cannot. A FILLER 
item must have a level number and any data description clauses that would be 
required for a data-name entry in the same location. 

Report names, file names, library names, and condition names are special 
cases of the data name used in report, description, file description, source 
library, and condition name entries. Appendix B contains the rules for 
forming all data -names. 



3.2.6 

INITIAL 



VALUE The initial value of any item in the Working Storage Section is specified with 

the VALUE clause in the record description entry. 



3.2.7 

LITERAL 



A literal is an explicit statement of the value to be used in an operation per- 
formed by the object program . Literals may be used wherever the format 
indicates. Appendix B contains a description of literals and the rules 
governing their formation. 



3 2.8 

FIGURATIVE 
CONSTANT 



Figurative constants are predefined as part of the COBOL language. They 
may be used wherever a literal is allowed in the reference format. A 
complete list of figurative constants is contained in Appendix B. 
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3.3 

fIle descrip- 
tion ENTRY 



A file description entry provides information about the physical structure , 
identification, and record names of each file used in the source program. 



file -name -1 COPY statement. 



Format 1: 

Format 2: 

FD file -name - 1 

; RECORDING MODE IS 



( I BINARY / 
J ) DECIMAL ( 

I i SECTOR 
f ) TRACK 



LOW 



[i 



HIGH 
HYPE 

^ SEGMENTED { 



DENSITY 



(hyper 
contiguous ( j 



BLOCK CONTAINS [Integer-l TO] lnteger-2 r RECORDS il 

1, CHARACTERS IJ 



RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 

}] 



DEPENDING ON i^*^^"^^"^ 
) RECORD- MARK 



,.n., ( RECORDS ARE ^ (t^^SSIF 

i^^^EL RECORD IS OMTTED 

( ' ldata-name-2 



. y^j^yg QP jlabel-field-l) j data -name -4 ^ T jlabel-field-2 

' I data-name -3 f jliteral-1 j ' jdata-name-5 

I data- 



TQ iuai,a-name-6n 
^^ jliteral-2 [J... 



T^A^A i RECORD IS / , 
. ; DATA j EECORDS AREl data-name-7 [, data-name-S] , . . 

I \ REPORT IS I 

I REPORTS ARE [ ^®P0^t-"^°ie-l [» report-name-2] ... 

[; SEQUENCED ON data-name-9] . 
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Format 3: 

SD file-name-1 

I ; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 

DEPENDING ON ■! S^"i^tA ^^ 
RECORD- MARK 



^^^^ \ RECORD IS , 

' 2AT^ j RECORDS ARe{ data-name-2 [, data-name-3] . . . 

Format 1 is used only when the COBOL library contains the entire FD or SD 
entry; format 2 describes external files; format 3 describes sort files. The 
COPY statement is defined in section 6.1. 

The level indicator FD or SD identifies the beginning of each file description 
entry and must precede the file name. All semicolons are optional, but 
the entry must be terminated by a period. The clauses which follow the name 
of the file are optional in many cases, and their order of appearance is 
immaterial. 

The REPORT clause of the FD entry Is used only when Report Writer is used; 
it is described in chapter 5. 
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3.4 

DATA DESCRIP- 
TION ENTRY 



A data description entry specifies the characteristics of each particular 
item of data. 

Format 1: 

01 data-name COPY statement 
Format 2: 



level-number 



! data -name -1 
FILLER 



[; REDEFINES data-name -2] 
; )'^^Tc — C IS character-string 

/ 



USAGE IS 



INDEX 
DISPLAY 

\ COMPUTATIONAL ) 
|COMP [ 

j COMPUTATIONAL-1 
} COMP-1 

(COMPUTATIONAL^ 
] COMP-2 

[; OCCURS [integer-l TO] integer-2 TIMES [DEPENDING ON data-name-1]] 



i ASCENDING / 

i DESCENDING I ^^"^ ^^ data-name-2 [, data-name-3] . . . 

PNDEXED BY index -name-1 [, index -name-2] . . . ] 






SYNC I ( LEFT H 

• ) SYNCHRONIZED ) J RIGHT jj 

(just / 



JUSTIFIED I 



RIGHT 



[; BLANK WHEN ZERO] 
[; VALUE IS literaI-31. 
Format 3: 

66 data-name-1 RENAMES data-name-2 [THRU data-name-3]. 
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Format 4: 



( VALUE IS / 
88 condition-name ; \ „.^,,„„ .„„> literal-l [THRU literal-2] 

[, literal-3 [THRU literal-4]] .... 



Format 5: 

JPIC 
77 data-name-l) PICTURE (is . . . [uSAGE IS]. . . [VALUE IS]. . . etc. 



All semicolons and commas are optional in the data description, but the entry 
must be terminated by a period. 

Format 1 is used at the 01 level only. It may be used when the complete 
record description is contained in the COBOL library. The COPY statement 
is described in section 6. 1. 

Format 2 has a level number in the range 1-49. The clauses are written in 
any order with one exception: the REDEFINES clause, when used, must 
immediately follow the data name. PICTURE must be specified for every 
elementary item unless USAGE is INDEX, COMP-1, or COMP-2. The 
following clauses may be specified only at the elementary item level: 
PICTURE, SYNCHRONIZED, JUSTIFIED, and BLANK WHEN ZERO. 

Format 3 is used with the RENAMES clause for alternate naming of elementary 
items or group items not at the 01 level. The level number must always be 66. 
The RENAMES clause must not be used with independent, level 77, entries. 

Format 4 is used for condition name entries. Each condition name requires a 
separate entry with the level number 88. A condition name is a data name 
assigned to the condition; VALUE(S) specifies the value, values, or range of 
values associated with the condition name. A condition name entry must follow 
the entry describing the variable item with which it is associated. A condition 
name can be associated with any elementary or group item except the following: 

another condition name, a level 66 item, a group of items requiring 
special handling such as synchronization or us^e, an index data item. 

Format 5 describes independent items. An independent item is elementary, 
and is not part of a record or in the File Section, The level number must be 
77. Independent items are described with the same clauses used in format 2 
for elementary items. 
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3.5 

DATA DIVISION 

CLAUSES 



All clauses in the file and data description reference formats are described 
in this section with the exception of the REPORT clause which is described 
in section 5 . The clauses are listed alphabetically. 



3.5.1 

BLANK WHEN ZERO 



The BLANK WHEN ZERO clause permits the blanking of an item when its 
value is zero. 



BLANK WHEN ZERO 

When this clause is specified, the item will contain nothing but spaces if 
the value of the item is zero. This clause may be used only with a 
numerically edited item. 
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3.5.2 

BLOCK CONTAINS This clause specifies the size of a block or physical record. 

RECORDS I 

BLOCK CONTAINS is required in a file description entry unless the block 
contains exactly one logical record. A file assigned to TTY or CRT cannot 
be blocked. 

Integer-1 and integer-2 are positive integers. 

For a mass storage file the size is stated in terms of RECORDS. The 
CHARACTERS option should be used if one of the following situations exists: 

• Logical records extend across blocks 

• The block contains padding, an area not contained in a logical record 

• Logical records are grouped in such a manner that an inaccurate 
block size is implied 

When the CHARACTERS option is used, the physical record size is specified 
in terms of the number of characters in the physical record. Characters are 
specified in standard data format regardless of their types. 

If only integer-2 is shown, it represents the exact size of the physical record. 
If integer-1 and integer-2 are both shown, they refer to the minimum and 
maximum size of the physical record respectively. 

If logical records of differing size are grouped into one physical record, the 
end of the logical record must be explicitly defined in the record description 
entry unless the RECORD CONTAINS DEPENDING ON option is used. The 
maximum file block size is 131,067 characters. Appendix F describes 
COBOL/MASTER file blocking formats. 

Block 

A block is a physical unit of data that is convenient for storage on an input or 
output device for a particular computer. It is identical with physical record. 
The block size has no direct relationship to the size of the file containing it, 
or to the size of logical records contained in the block. A block is normally 
composed of one or more logical records, or a portion of a logical record. 

Logical Record 

A COBOL logical record is a group of related information, uniquely identifiable, 
and treated as a unit. The concept of logical record is not restricted to file 
data but is carried over into the definition of working storage items. Logical 
records, whether in the File Section, Working Storage, or Common Storage 
Sections are defined by record description entries (section 3.2.3). 
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3.5,3 

DATA RECORDS The DATA RECORDS clause is required in each file description entry. The 

processor uses it to correlate file and record description entries. 

r.ArrA ( RE COEDS are/ , ^ „ r ^ * 

DATA j RECORD I S [ data-name-7 [, data-name-8] . , , 

The data names are names of data records which must have 01 level numbers . 
The presence of more than one data name indicates that the file contains more 
than one type of data record. The order in which names are listed is 
immaterial. 

Data records in a file need not have the same description. All data records 
within a file are processed from the same record area. The size of this area 
is equivalent to the largest record in the file. 

When the file description entry is for a sort file (SD), the data names identify 
records named in the RELEASE statement. 

This clause or the REPORT clause (Report Writer, section 5) must be included 
in each file description entry. 
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3.5.4 

JUSTIFIED The JUSTIFIED clause specifies nonstandard positioning of data within a 

receiving data item. 

( justified ) ^^^^^ 

I JUST ( 

The JUSTIFIED clause can be specified only at the elementary item level in 
a record description entry. 

The standard rules for positioning data within an elementary data item area 
depend on the category of the receiving item . 

Receiving Item Rule for Positioning Data 

Numeric Data is aligned by decimal point and moved to the 

receiving character positions with zero fill or 
truncation on either end as required. If an assumed 
decimal point is not explicitly specified, the item is 
treated as if an assumed decimal point immediately 
followed the rightmost character. 

Numeric Edited Data is aligned by decimal point with zero fill or 

truncation at either end as required within the 
receiving data item, except where editing causes 
replacement of leading zeros. 

Alphanumeric/ Data is moved to the receiving character positions 

Alphabetic and aligned at the leftmost character position with 

space fill or truncation to the right. 

The JUSTIFIED clause cannot be specified for an item described as numeric 
or for a numeric edited data item. 

When the receiving item is described with the JUSTIFIED clause and the 
sending item is larger than the receiving data item, the leftmost characters 
are truncated; when the receiving item described with the JUSTIFIED clause 
is larger than the sending item, the data is aligned at the rightmost character 
position in the data item with space fill. 
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Example: 
Picture 



S9(5) 

S9(4)V9 

S9(4)V9 

X(5) 

X(5) 

X(2) 



Data 



Efi 



E 


B 


C 



Item 



4- 

12 3 


12 3 


f 


12 3 


l|2 



A 


A 


A 


B 


C 



A 


B 


C 




ABC 


A 


A 










|A 


B 


C 




B 


C 





Justified 



Right 
Right 

Right 



Right justified, 
zeros filled-in. 

No justification, 
aligned by point. 

Illegal; item 
is numeric. 

Right justified; 
blanks filled-in. 

Left justified 
normally. 

Right justified, 
left character 
truncated. 
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3.5.5 

LABEL RECORDS 



The LABEL RECORDS clause is required in every file description entry 
regardless of the presence or absence of label records. It identifies labels 
as standard or as nonstandard; but if labels are not present, it specifies that 
they are omitted. 



Format 1: 



LABEL 



Format 2: 



LABEL 



RECORDS ARE 
RECORD IS 

3 literal-l 

( data -name -1 



RECORDS ARE 
RECORD IS 



j literal- 3 
|data-name-5 



STANDARD VALUE OF label-field-1 IS 



label-field-2 IS jliteral-2 

/data-name -2 



data-name-3 VALUE OF data-name-4 IS 



, data-name-6 IS 



i literal -4 
data-name-7 



Format 3: 



Msa jisgr^i o«™ 



Format 1 is used when a file has standard labels (appendix E) . All mass 
storage files except scratch files must be specified STANDARD in this clause. 
Mass storage scratch files, may have OMITTED or STANDARD labels. Mass 
storage file labels are maintained by MASTER File Supervisor and are not 
accessible to the user. For any non-mass storage file that has standard 
labels , the record area defined for that file is used by the input -output con- 
trol system for processing the header and/or trailer labels. Thus, the user 
may access each label within the USE declarative procedures. 

Format 2 is used when labels are nonstandard or user defined. Data-name-3 
is the name of a label record area. It must not appear in the DATA RECORDS 
clause, and is either the subject of a record description associated with the 
file, or an area in working or common storage. Only the beginning labels are 
checked for files with data name labels. All Procedure Division references to 
the data name specified in this clause, or to any items subordinate to this 
data name, must appear within USE procedures. 

Format 3 is specified when no explicit labels exist for the file or for the device 
to which the file is assigned. Files assigned to TTY or CRT do not have 
labels and OMITTED should be specified. 



3-16 



60229400 



The VALUE OF clause is used only in formats 1 and 2. It specifies the 
values of data items used to identify or create the labels. A figurative 
constant may be substituted for any literal in the format. 

The following label field names are used to define the values of standard labels : 



Tape 

} 

IDENTIFICATION^ 
EDITION-NUMBER 
REEL-NUMBER 

"DTT'TrVT'TO'N'' r^'vr^T 17 



JVIass Storage 

f" I 

{ identification ; 
(owner 

( OWNER-ID 
E DITION=NLTkIBER 
ACCESS-PRIVACY 
MODIFICATION-PRIVACY 



The IDENTIFICATION or ID field is required. The specified label fields are 
checked against the label record by the input-output control system. If the 
physical file labels do not agree, the file is not processed. The values of 
these fields must exactly match the values given as parameters on any 
external file control cards. (*DEF cards, section 7.7.3). 

When a label is nonstandard, the VALUE OF clause is required to define the 
values of identifying data items. Each of the subject data names (data-name-4, 
data-name-6, and so forth) is in the label record. The data names or literals 
following IS must be in the Working -Storage Section. The data names in this 
clause can be qualified but not subscripted or indexed, nor can they be 
described by USAGE IS INDEX. 

VALUE OF causes the following action to be taken: 

Input file A label routine checks to see that the value of each label 
record data name or label field is equal to the value of its 
corresponding literal or data name. If any field does not 
compare, the file is rejected and a request is made to 
mount the correct file. 

Output file The value of each label record name or label field is made 
equal to the value of its corresponding literal or data name. 
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3.5.6 

OCCURS 



The OCCURS clause eliminates the need for separate entries when the items 
in a sequence are identical to each other in every respect except value. It 
also supplies information required to subscript or index the repeated items. 

OCCURS [integer-1 TO] integer-2 TIMES [DEPENDING ON data-name-1] 
DESCENMNGf ™^ ^^ data-name-2 [, data-name-3] . . 



INDEXED BY index-name-1 [, index-name-2] 



Each integer must be positive. It both are used, the value of integer-1 must 
be less than that of integer-2. The value of integer-1 can be zero; the value 
of integer-2 can never be zero. 



The OCCURS clause is optional, 
entry that has: 



It cannot be specified in a data description 



A level number of 01 or 77 

Subordinate item containing the OCCURS. . .DEPENDING ON ojAion 

The OCCURS clause is used to define tables and other homogeneous sets of 
repeated data. The data name which is the subject of the data description 
entry containing the OCCURS clause must be either subscripted or indexed 
when it is referenced by any statement. If the entry containing OCCURS is a 
group item, each data name in the group must also be subscripted or indexed 
when referenced. The other clauses in an entry containing OCCURS apply to 
each occurrence of the item they describe. Three levels of nested OCCURS 
clauses are permitted. 

The DEPENDING ON option is used to specify that the subject of the entry has 
a variable number of occurrences. Integer-1 represents the minimum number 
of occurrences and integer-2 the maximum. If the DEPENDING ON option is 
not specified, integer-2 is the exact number of occurrences and integer-1, if 
specified, is documentary only. Data-name-1 contains the count of the actual 
number of occurrences; its value must not exceed integer-2. Data-name-1 
must be a positive COMPUTATIONAL integer; if it is described in the same 
record as the current entry, it must not be the subject of, or be subordinate 
to, an entry containing an OCCURS. . . DEPENDmC ON clause. The value of 
data-name-1 should not be reduced below the actual number of occurrences 
of the data items; otherwise, the content of any data items whose occurrences 
exceed the new value of data-name-1 become unpredictable. An entry con- 
taining the DEPENDING ON option must not be the object of a REDEFINES 
clause. 
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When the DEPENDING ON option is specified in a data description in the 
File Section, records written on external devices will be variable in length 
depending on the value of data-name-1. DEPENDING ON may appear only 
once in a record description entry and must be at the last major level of 
the record. 

The KEY IS option indicates that the repeated data is arranged in ascending 
or descending order according to liie value of the key data names (data- 
name-2, data-name-3, etc.)- This option is required when a SEARCH ALL 
statement is used in the Procedure Division to search the table of repeated 
data. The key data names are listed in descending order of significance. 
Data-name-2 either names the entry containing the OCCURS clause or names 
an entry subordinate to the entry containing OCCURS. 

If data-name-.3 or any succeeding key data names are used, each must name 
an entry subordinate to the group item which is the subject of the entry con- 
taining OCCURS. Except when data-name-2 is the subject of the OCCURS 
clause, none of the key data names can be the subject of, or subordinate to 
an entry containing an OCCURS clause. 

The INDEXED BY option is required if the subject of this entry (or if it is a 
group, an item within it) is referred to by indexing or is referenced by the 
SEARCH statement. The index name is not defined elsewhere since its 
allocation and format is controlled by the compiler. It is not data, and cannot 
be associated with any data hierarchy. However, an index name must be 
initialized by the SET statement before it is used as a table reference. 
Index name items are one computer word in length and are in binary format 
(COMPUTATIONAL-1) . 

The VALUE clause must not be stated in a data description entry which 
contains OCCURS or is subordinate to an entry containing OCCURS. This 
rule does not apply to condition name entries. Initial values of items in 
working storage may be specified in the following manner: 

The table is described as a record with contiguous data description entries 
each of which has a VALUE clause as well as other clauses, (USAGE, 
PICTURE, etc.) required to complete the description. The table must be 
specified again with a REDEFINES clause to show its hierarchical 
structure. The entries subordinate to the REDEFINES entry are repeated 
because of the OCCURS clause; but they must not contain VALUE clauses. 

An alternate method can be used when the table elements do not require 
separate handling because of usage, synchronization, etc. In this case, 
the value of the entire table can be specified in the entry defining the 
table. The lower level entries specify the hierarchical structure of the 
table with OCCURS; they cannot contain VALUE clauses. 
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Examples: 

1. 01 PARTS-LIST. 

02 A-PARTS. 

03 PART-Al PICTURE 9(10) VALUE xxxxxxxxxx. 
03 PART-A2 PICTURE 9(10) VALUE xxxxxxxxxx. 



03 PART-AIOO PICTURE 9(10) VALUE xxxxxxxxxx. 
02 B-PARTS. 

03 PART-Bl PICTURE 9(10) VALUE xxxxxxxxxx. 
03 PART-B2 PICTURE 9(10) VALUE xxxxxxxxxx. 



03 PART-BIOO PICTURE 9(10) VALUE xxxxxxxxxx. 
02 C-PARTS. 

03 PART-Cl PICTURE 9(10) VALUE xxxxxxxxxx. 



02 J-PARTS, 

03 PART-Jl PICTURE 9(10) VALUE xxxxxxxxxx. 



The above list contains a thousand entries, 100 lower level entries for each 
02 level entry and 10 entries at the 02 level. To reference the list by sub- 
scripting or indexing, it must be redefined as: 

01 PARTS-TABLE REDEFINES PARTS-LIST. 
02 LIST OCCURS 10 TIMES. 

03 PART PICTURE 9(10) OCCURS 100 TIMES. 

2 . If the list PARTS-LIST has a varying number of occurrences of the entries 
at the 02 level, it is redefined as follows: 

01 PARTS-TABLE REDEFINES PARTS-LIST. 

02 PART PICTURE 9(10) OCCURS 1 TO 150 DEPENDING ON 
PART-NUMBER. 

In this case, the number of occurrences is contained in the data item named 
PART -NUMBER with the following data description. 

77 PART-NUMBER PICTURE 999 COMPUTATIONAL VALUE xxx. 
Value must be a positive integer. 
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3 . A table referenced by a SEARCH statement or by indexing can be 
described as follows: 

01 DATA-LIST OCCURS 25 TIMES INDEXED BY LIST-INDEX, 
ITEM-INDEX. 
03 ITEMA PICTURE 9(3) OCCURS 10 TIMES 

The SET statement can be used to set the Initial values of LIST -INDEX 
and ITEM-INDEX: 

SET LIST-INDEX TO 25. SET ITEM-INDEX TO 10. 

4. A table to be searched by the SEARCH ALL statement can be described 
as follows: 

01 DATA-LIST OCCURS 25 TIMES INDEXED BY LIST-INDEX, 
ITEM-INDEX DESCENDING KEY IS DATA-LIST, ITEM -KEY. 
03 ITEMA OCCURS 10 TIMES. 
05 AVALUE PICTURE 9(7) 

oo ttATA T7AT TTT71C1 A Ts T7» T TiTTT^TT f\r\nr\nrt 
oo \rLj-in. V x\j-iuxih:d ruxu j. xxixvu iyoijiiyviy, 

03 ITEM -KEY PICTURE X. 

When a table area or record area requires subscripting or indexing, hardware 
indexing is employed only if the defined area is less than 16,383 characters. 
For a larger area, however, software logic is used for subscripting and 
indexing. Thus, subscripting and indexing may be slower if the defined area 
is greater than 16,383 characters. 
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3.5.7 

PICTURE The PICTURE clause describes general characteristics and editing require- 

ments of an elementary item; it may be used only at the elementary item level. 

< "T— > IS character string 

A character string consists of a maximum of 30 characters from the COBOL 
set. The particular combination of characters determines the category of 
the item. Six categories of data may be described with a PICTURE clause: 
alphabetic, numeric, alphanumeric, alphanumeric edited, numeric edited, 
and floating point edited. 

The number of symbols that represent character positions indicate the size 
of an item. (Size means the number of character positions occupied by the 
item in standard data format.) For instance, an item containing 12 character 
positions is represented by a PICTURE clause containing either 12 symbols, 
AAAA AA AAAA AA , or the integer 12 in parentheses following the symbol, 
A (12) . An integer in parentheses can be used to show the number of con- 
secutive occurrences of the symbols : AX9PB0*,+-Zor the currency 
sign. 

Alphabetic 

The PICTURE string for an alphabetic item contains only the symbol A 
specified as many times as required. The item may contain any combination 
of letters of the alphabet and spaces not exceeding 131,067 alphabetic 
character positions. 

Numeric 

The PICTURE string for a numeric item is composed of the symbols 9 P S V. 
The item may contain any combination of numerals 0123456789 and an 
optional plus (+) or minus (-) sign. The maximum size of the item is 18 
numeric digit positions. 

Alphanumeric 

The PICTURE string for an alphanumeric item may contain the symbols A X 
and 9 only. It may contain all X's, but not all A's or all 9's; and an alpha- 
numeric item is always treated as if it were all X's. Contents of the item are 
characters allowable in the computer's character set. The maximum size of 
the item is 131,067 alphanumeric character positions. 

The following three categories are PICTURES of edited items. Editing alters 
the format or the punctuation of data in an item; characters can be suppressed 
or added. 
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Numeric Edit 

The PICTURE string for a numeric edited item contains only the symbols 
BPVZ09, . /*+- CR DB and the currency sign. Allowable symbol 
combinations are determined by the order of precedence of symbols and 
editing rules. A maximum of 4095 character positions may be represented 
in the character string, but only 18 may be numeric digit positions. Contents 
of character positions representing digits must be numerals 0-9. 

Alphanumeric Edit 

The PICTURE string of an alphanumeric edited item contains the symbols 
A X 9 B 0; combinations are restricted to: at least one B and one X or 
at least one and one X or at least one and one A . 

An alphanumeric edited item contains characters allowable in the computer's 
character set not exceeding 4095 alphanumeric character positions. 

Floating Point Edit 

The PICTURE string of a floating point edited item is restricted to the 
following symbols in the order listed: 

+ or - 

One to eleven 9's with leading, embedded, or trailing decimal point 
or scaling symbol V (the coefficient) . 

Letter E 

+ or - (sign of the exponent) 

Three 9's (value of the exponent) 

The initial plus indicates that a plus sign represents positive values and a 
minus sign negative values; the initial minus indicates that blank represents 
positive values, a minus negative values. The maximum size is 18 alpha- 
numeric character positions; the coefficient can have up to 11 numeric digit 
positions and the exponent 3 numeric digit positions. 

CAUTION: The PICTURE clause defines the characteristics of the 
expected contents in a data item , and the code generated by the 
compiler is dependent upon the PICTURE descriptions. During 
object program execution, the actual contents of the data item are 
assumed to conform with the PICTURE. No data validation is 
ever performed by the generated code. If invalid data is introduced 
to the program the course of events is unpredictable- 
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Definition of Symbols Used in PICTURE 

Symbol Definition 

A Represents character position which can contain only a 

letter or a space; it is counted in size of item. 

X Represents a character position containing any allowable 

character from computer's character set; it is counted 
in size of item. 

9 Represents a character position which contains a 

number; it is counted ia the size of the item. 

P Indicates an assumed decimal scaling position when this 

position does not occur within the number that appears 
in the data item . It is not counted in the size of a 
numeric data item , but it is counted in determining the 
maximum size of a numeric edited item used as an 
operand in an arithmetic statement. P can appear only 
to the left or right in a string of one or more P's within 
the character string. The assumed decimal point is 
to the left of the leftmost P or to the right of the right- 
most P; each P represents an implied character position 
(treated as zero) between the assumed decimal point 
and the leftmost character of the data item if the P's are 
to the left and the rightmost character if the P's are 
to the right. The assumed point location may be up to 
31 places to the right or 30 places to the left of the 
rightmost digit position ia the picture. The ssrmbol V 
is redundant when P is specified. 

For example, a data item containing the number 2567 is 
treated as 256700 if the PICTURE is 9999PP; or as 
. 002567 if the PICTURE is PP9999. 

S Indicates the presence of an operational sign (+ or -) 

and must be written as the leftmost character of a 
PICTURE string. It is not counted in determining the 
size of an item . (This character is used for documenta- 
tion purposes only. ) 

V Indicates the location of an assumed decimal point for 

aligning items during computation. It does not repre- 
sent a character position and is not counted in determin- 
ing the size of an item. V may appear only once in a 
PICTURE string. V is redundant when the assumed 
decimal point is to the r^ht of the rightmost symbol in 
the PICTURE string. 
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Symbol Definition 

B Represents a character position into which a space is 

inserted. It is counted in the size of the item. 

Z Represents the leftmost leading numeric character 

position to be replaced by a space when the contents 
of that position and all positions to the left of it are 
zero. Each Z is counted in the size of the item. 

Represents a character position into which the digit 

(zero) will be inserted. Each is counted in the size of the 

item. 

, Represents a character position into which the comma 

(comma) will be inserted. It is counted in the size of the item. 

Represents the decimal point for alignment purposes 
(period) as well as a character position into which the period 

will be inserted. It is counted in the size of the item. 

X' WJ. a. ^xyc^ix Uxugxaiii liic xuiiv^Lxwiio wx uiic? ^jc±t\j\jL cxiitx 

comma are exchanged if DECIMAL-POINT IS COMMA 
is specified in the SPECIAL-NAMES paragraph of the 
Environment Division. In this special case, all rules 
for a period apply to the comma, and rules for the 
comma apply to the period wherever they appear in a 
PICTURE clause. 

+ Used as editing sign control symbols to represent the 

character position into which the symbol is placed. 
CR These four symbols are mutually exclusive in any one 

DB PICTURE string. Each character is counted in 

determining the size of the item. 

* Represents a leading numeric character position into 

(asterisk) which an asterisk is placed when the contents of that 

position is zero. Each * is counted in determining 

the size of the item. 

/ Represents a character position into which the slash 

(slash) character will be inserted. It is counted in the size 

of the item . 

currency Represents a character position into which the symbol 

symbol will be placed. The dollar sign or a single character 

$ specified in the CURRENCY SIGN clause of the 

SPECIAL-NAMES paragraph in the Environment 
Division. It is counted in the size of the item. 

E Used in the PICTURE string of a floating point edited 

item to indicate the exponent. It is counted in the 
size of the item . 
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Examples: 

PICTURE 

Alphabetic 

AAAAA or A(5) 

Numeric 
999 

99V999 

S99V99 

PPP9999 

SPPP9999 

S999PPP 

Alphanumeric 

XXXXXXXX or X(8) 

XXXXXXXX or X(8) 

AAAX999 



Data Item 






A 


B 


c 


D 


E 






1 


2 


3 








1 


2 


3 


4 


5 






1 


2 


3 


4 








1 


2 


3 


4 








[T 


2 


3 


4 










1 


2 


3 





Result Item 



A 


B 


C 


D 


E 



|0 
|000 



1 


2 


3 




* 


1 


2 


3 


4 


5 


♦ 




1 


2 


3 


t 




t 




1 


2 


3 


4 





12 3 4 



A 


B 


C 


D 


- 


♦ 


* 


* 




1 


2 


3 


• 


4 


5 


6 


7 






A 


B 


C 


/ 


1 


2 


3 





12 3 Oji 



A 


B 


C 


D 


- 


* 


* 


* 




1 


2 


3 


« 


4 


5 


6 


7 






A 


B 


C 


/ 


1 


2 


3 
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PICTURE 



Data Item 



Result Item 



Numeric Edit 
$99 
$$$99 
ZZZ99 
99.99 
***** 99 

++999 
+999 



4 8 









4 


8 









9 


2 


3 



2 8 2 



$ 


4 


8 




$ 


4 


8 



A A 9 2 3 



4 


8 


3 


4 




4 


8 


• 


3 


4 




» 



















1 





7 


5 




* 


* 


* 


1 





• 


7 


5 


♦ 














2 


8 


2 




+ 


2 


8 


2 





+ 


2 


8 


2 



BBBXXXB 
OOOXXX 

Floating Point Edit 
+9.E+999 

+999.9E+999 

+.99999E+999 

-999.99E+999 

-9.99E+999 



A 


B 


C 




1 


2 


3 



Value of Data 
+4.0 

-3.125 

+15275. 

+74.325 

-84.2 



A 


A 


A 


A 


B 


C 


A 















1 


2 


3 





+ 


4 


■• 


E 


+ 












- 


3 


Jj 


2 


. 


5 


E 


- 








2 



+ 


. 


1 


5 


U 


7 


5 


E 


+ 








5 



7 


4 


3 


• 


2 


5 


E 


- 








1 



- 


8 


. 


4 


2 


E 


+ 








1 



60229400 



3-27 



3.5.8 

PICTURE 



EDIT 



Editing Rules 

Editing is accomplished by Insertion or by suppression with replacement. 
Insertion editing consists of simple insertion, special insertion, fixed 
insertion, and floating insertion. Suppression with replacement editing 
consists of zero suppression with replacement by spaces or asterisks. 
Simple insertion editing is performed only on alphanumeric edited items. 
All types of editing may be performed on numeric edited items with the 
following restrictions: 

Floating insertion editing and suppression with replacement editing 
cannot be used in the same PICTURE. 

One type of replacement (either spaces or asterisks) with zero 
suppression can be used in the same PICTURE. 

A variable length item cannot be edited. 



Simple Insertion Editing 

Insertion characters are: , (comma), the letter B, / (slash), and (zero). 
If the item is alphanumeric edited, only B or may be used. Insertion 
characters are counted in the size of the item and represent the position in 
the item into which the character is inserted. 



Examples: 

PICTURE 

9,999 

99/99/99 

09/99/99 

BB99.99 



Data Item 



15 



? 



Result Item 






1 


5 


4 







1 


1 


5 


4 

















1 


2 


3 


6 


7 




1 


/ 


2 


3 


/ 


6 


7 










1 


2 


3 


6 


7 







1 


/ 


2 


3 


/ 


6 


7 



A 


A 


5 


7 


• 









Special Insertion Editing 

The only special insertion character is the period. It also represents the 
decimal point for alignment purposes. When used as an actual decimal point, 
the period is counted in the size of the item. An assumed decimal point 
represented by the symbol V may not appear in the same PICTURE string 
as an actual decimal point represented by a period. When the period is the 
last symbol in the PICTURE string, it must be followed immediately by one 
of the punctuation characters, semicolon or period, followed by a space. 

The result of special insertion editing is the appearance of the insertion 
character in the item in the same position as shown in the character strtag. 



3-28 



60229400 



Fixed Insertion Editing 

The fixed insertion characters are the currency symbol (cs) and the editing 
s%n control symbols: + - CR and DB. Only one currency symbol and only 
one editing control symbol can be used la a given PICTURE string. CR and 
DB must be the rightmost character positions in the item ; they are each 
counted as two character positions la determining the size of the item. The 
symbol + or - must be either the leftmost or the rightmost character position 
in the item. The currency symbol must be the leftmost character position 
unless it is preceded by a + or a -. The +, the -, and the currency symbol 
are each counted in determining the size of the item. 

Fixed insertion editing results in the insertion of the editing symbol in the 
same position in the item as it occupied in the PICTURE. The result depends 
on the value of the item: 



Symbol in 
Picture Character String 


Result 


Data Item Positive 


Data Item Negative 


+ 

CR 
DB 


+ 

space 

2 spaces 

2 spaces 


CR 
DB 



Examples: 

PICTURE 

+999 

+999,999 

-999 

-99.99 

99.99DB 

99.99DB 

99,99CR 

99,99CR 

$BB999.99 

$00999.99 



Data Item 





2 9 


2 







12 




2 9 


+ 
2 




2 


9 2 




. 


2 3 


7 6 






2 3 


7 6 






1 1 


3 4 




, 


1 1 


3 4 






2 4 


3 2 1 


f 


2 4 


3 2 1 



R 


3SU 


lit. 


Item 


- 


2 


9 


2 










+ 











) 





1 


2 










A 


2 


9 


2 










- 





2 


. 


9 


2 










2 


3 


. 


7 


6 


D 


B 








2 


3 


« 


7 


6 


A 


A 








1 


1 


. 


3 


4 


C 


R 








1 


1 


. 


3 


4 


A 


A 








$ 


A 


A 


2 


4 


3 


. 


2 


1 




$ 








2 


4 


3 


. 


2 


1 
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Floating Insertion Editing 

The symbols used for floating insertion are: the currency symbol (cs), and 
the editing sign symbols + or -. They are mutually exclusive as floating 
insertion characters in a given PICTURE string. Floating insertion edituig is 
indicated by using at least two of the floating symbols in the leftmost numeric 
character positions. Any other insertion symbols embedded in the string of 
floating insertion symbols or to the immediate right of the string are part of 
the floating string. 

Floating Insertion ia a PICTURE may be represented in two ways : 

Any or all leading numeric character positions to the left of the decimal 
point are insertion symbols. 

All numeric character positions in the picture are represented by the 
floating insertion symbol. 

The first case results in a single insertion character placed in the position 
immediately preceding the first nonzero character or the decimal point, 
whichever is encountered first. 

The result in the second case depends on the value of the data. K the value is 
zero, the entire edited item will contain spaces. H the value is not zero, 
the insertion character is placed in the position immediately preceding the 
first nonzero character or the decimal point, whichever is encountered first. 



Examples : 

PICTURE 



Data Item 



Result Item 



or 7(-) 



7(+) 
4(+) . 99 

7($) 
5($).99 























A 


A 


A 


A 


A 


A 


A 

















1 


2 


3 




A 


A 


A 


+ 


1 


2 


3 












1 


2 


3 


ii 










4 


3 


5 


9 


{ 


|i 

























Fn 



A A + 1 , 2 3 



A $ 4 3 . 5 9 



A 


A 


A 


A 


A 


A 


A 



A A A $ . 2 5 



The PICTURE character string must contain at least one more floating 
insertion character than the maximum number of significant digits in the 
item to be edited. All floating insertion characters are counted in the size 
of the item. 
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Zero Suppression Editing 

Suppression of leading zeros in numeric character positions is indicated by 
the symbols Z or * in the PICTURE string. If Z is used, leading zeros are 
replaced by the space; if * is used, leading zeros are replaced by the asterisk. 
The PICTURE string contains one or more of either symbols in the leading 
numeric character positions. Any of the insertion characters embedded in or 
to the immediate right of this string are part of the string. The symbols + - 
* Z and the currency symbol (cs) are mutually exclusive within a given 
PICTURE string. 

Zero suppression within a PICTURE string may be represented in two ways: 

Any or all leading numeric character positions to the left of the decimal 
point are represented by suppression symbols. 

All numeric character positions are represented by suppression symbols. 

In the first case, any leading zero in the data which corresponds to a symbol 
in the string is replaced. Suppression terminates with the first nonzero digit 
or at the decimal point, whichever is encountered first. 

In the second case, the result depends on the value of the data. If the value is 
zero, the entire data item is set to spaces when the suppression symbol is all 
Z or all *, except the decimal point when the symbol is *. If the value is not 
zero, the result is the same as if the suppression characters were only to the 
left of the decimal point. 

When the asterisk is used as a suppression symbol and the clause BLANK 
WHEN ZERO also appears in the same entry, zero suppression editing 
overrides the function of BLANK WHEN ZERO. 
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Examples of Zero Suppression Editing: 



PICTURE 

ZZ999 

ZZZ,999.99 

Z99,999.99 

$ZZZ,ZZ9.99 

$ZZZ,ZZZ,99 

$***,**9.99 

-ZZZ.ZZZ 
$ZZZ,ZZ9,99CR 
$ZZZ,ZZ9.99DB 
$(4), $$9. 99 
$(4), $$$.99 
ZZZZ.ZZ 
^$ZZ.99 



Data Item 



Result Item 









9 


2 


3 






1 


2 


3 


4 5 


« 








1 


2 


3 


4 


! 


I 











1 


2 


3 


♦ 














1 


2 




, 








1 


2 


3 


4 


♦ 


1 


2 


3 


4 


5 


6 


» 


1 


2 


3 


4 


5 


6 


J 
















1 


2 


» 


1 


2 


3 


4 


5 


6 


^ 











1 


2 


+ 
3 


' 


. 








1 


2 


3 


4 


^ 

























( 


\ 





50 



A 


A 


9 


2 


3 



A 


A 


A 


A 


A 


A 


A 



A 


1 


2 


» 


3 


4 


5 


• 














A 








» 





1 


2 


. 


3 


4 










$ 


A 


A 


A 


A 


A 


A 


1 


. 


2 


3 








$ 


A 


A 


A 


A 


A 


A 


A 


. 


1 


2 








$ 


* 


* 


1 


f 


2 


3 


4 


■ 














$ 


1 


2 


3 


9 


4 


5 


6 


. 














$ 


* 


* 


* 


* 


* 


* 


1 


. 


2 


3 










- 


A 


A 


A 


A 


A 


1 


2 






$ 


1 


2 


3 


J 


4 


5 


6 










c 


R 




$ 


A 


A 


A 


A 


A 


A 


1 


, 


2 


3 


A 


A 






A 


A 


A 


A 


$ 


1 


2 


3 


. 


4 











A 


A 


A 


A 


A 


A 


A 


$ 











^ 



illegal picture 
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3.5.9 

RECORD CONTAINS The RECORD CONTAINS clause of a file description entry specifies the 
size of data records in the file. 



RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 
DEPENDING ON 



ldata-name-1 / 
( RECORD- MARK \ 



This clause is not required. When present, however, the following rules 
apply: 

Integer-3 and integer-4 must be positive integers. Only integer-4 is 
used when all data records in the file have the same size. In this case, 
integer-4 represents the exact number of characters in each record. 
When integer-3 and integer-4 are both shown, integer-3 refers to the 
minimum number of characters in the smallest data record and integer-4 
refers to the maximum number of characters in the largest data record. 

Size is specified in terms of the number of characters in the logical 
record. These characters are given in standard data format regardless 
of types within the logical record. Record sizes are determined 
according to the rules for obtaining the size of a group item. The maxi- 
mum record size is 131,067 characters. 

The DEPENDING ON option provides a key field (data-name-1) which governs 
the size of the record. Normally, it is a field within the record but may be 
located elsewhere. Data-name-1 may be a BCD integer or a binary number. 

If data-name-1 is binary (COMPUTATIONAL-1) the key field is prefixed at 
the beginning of each record by the input -output control system. A prefixed 
key field format is called a universal record. 

If RECORD MARK is specified, each record is terminated by a special 
character, external 32g (0,2,8 multiple punch). Reading or writing 
terminates when the RECORD MARK is encountered. 

Files assigned to TTY or CRT must have fixed length logical records. 



60229400 3-33 



3.5.10 

RECORDING MODE 



The RECORDING MODE clause of a file description entry specifies the 
manner in which data is recorded on external storage devices. 



RECORDING 
MODE IS 



j BINARY I 
DECIMAL I 



(sector 

i TRACK 



r( LOW 
) HIGH 
{ HYPER 
j SEGMENTED } 

i contiguous! 



DENSITY 



For magnetic tape, the density settings are: LOW=200 bpi, HIGH=556 bpi, 
and HYPER=800 bpi. If this clause is not present, a RECORDING MODE of 
DECIMAL HIGH DENSITY wiU be assumed. 

The SECTOR/TRACK and SEGMENTED/CONTIGUOUS options apply only to 
mass storage files. When the FILE-LIMITS clause of the Environment 
Division is specified, the input -output control system will internally allocate 
and/or expand permanent mass stor^e files at object time. This allocation 
is performed according to the RECORDING MODE specification. SECTOR 
indicates that the minimum unit of allocation is a sector; TRACK that it is a 
track, SEGMENTED means that the file may be located in different areas of 
the same disk file. The MASTER file supervisor keeps track automatically 
of the locations of file portions. If CONTIGUOUS is specified, the file is 
assigned to one area lai^e enough to hold the entire file on a single device 
(disk file or disk pack) . The input -output control system automatically 
releases any unused portion of any file specified as SECTOR SEGMENTED. 
If RECORDING MODE is not specified for mass storage files, SECTOR 
SEGMENTED is assumed. Whenever possible, mass storage files should 
be allocated in CONTIGUOUS mode to minimize read/write head movement, 
thus increasing the rate of processing. 

A file assigned to TTY or CRT is always assumed to have a recording mode 
of DECIMAL. 
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3.5.11 , . -, 

REDEFINES The REDEFINES clause allows data Items in the same physical area m 

memory to be specified in an alternate manner. The data is not changed, 
only the method of referencing the data; this includes giving the item a new 
name. 

level-number data-name-1 ; REDEFINES data-name-2 

The level number of data-name-1 must be the same as that specified for 
data-name-2; it may not be 66 or 88. This clause may not be at the 01 level 
in the File Section. Implicit redefinition is provided by the DATA RECORDS 
clause in the file description entry. 

Entries giving the new description of the area in memory must immediately 
follow entries describing the area being redefined. Redefinition starts at 
data-name-2 and ends when a level number less than or equal to that of data- 
name-2 is encountered. Unless data-name-1 is at the 01 level, it must 
specify an area in memory the same size as that of data-name-2. 

The data-name-2 entry cannot contain an OCCURS clause and cannot be sub- 
ordinate to an entry containing an OCCURS clause. Nor can an OCCURS 
clause with the DEPENDING ON option be specified for any entries in the 
original item or its redefinition. 

Example: 

01 LIST. 

02 PART-1 PICTURE 999 VALUE IS xxx. 
02 PART-2 PICTURE 999 VALUE IS xxx. 
02 PART-3 PICTURE 999 VALUE IS xxx. 



02 PART-50 PICTURE 999 VALUE IS xxx. 
01 NEW-LIST REDEFINES LIST, 

02 PARTS PICTURE 999 OCCURS 50 TIMES. 
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3.5.12 

RENAMES The RENAMES clause permits alternate, possibly overlapping, groupings 

of elementary items. 

66 data-name-1, RENAMES data-name-2 [THRU data -name-3] 

All RENAMES entries associated with a given entry must immediately follow 
the last data item description in the entry. One or more RENAMES entries 
may be written for a given record description. 

Data-name-2 and data-name-3 must be names of elementary items or groups 
of elementary items in the associated record description entry; they must not 
be the same data name. Data-name-2 must precede data-name-3 in the 
record description. Data-name-3 must not be subordinate to data-name-2. 
A level 66 entry cannot rename another level 66 entry nor can it rename a 
level 77, level 88, or level 01 entry. 

Data-name-1 must not be used as a qualifier and may be qualified only by the 
names of level 01 or FD entries. Data-name-2 and data-name-3 may be 
qualified. Neither data-name-2 nor data-name-3 may have an OCCURS 
clause in its data description entry nor be subordinate to an item that has an 
OCCURS clause in its data description entry. 

When the THRU option is specified, data-name-1 is a group item which 
includes all elementary items starting with data-name-2 if data-name-2 is 
an elementary item, or the first elementary item in data-name-2 if data- 
name-2 is a group item, and concluding with data-name-3 if data-name-3 is 
an elementary item, or the last elementary item in data-name-3 if data- 
name-3 is a group item. 

When the THRU option is not specified, data-name-2 can be either a group 
or an elementary item. If data-name-2 is a group item, data-name-1 is 
treated as a group item; if data-name-2 is an elementary item, data-name-1 
is treated as an elementary item. 

Examples: 

1. 01 DATE -WORD, 

02 YEAR-1 PICTURE 99. 

66 YEAR-2 RENAMES YEAR-1. 

02 MONTH-1 PICTURE 99. 

66 MONTH-2 RENAMES MONTH-1. 

02 DAY-1 PICTURE 99. 

66 DAY-2 RENAMES DAY-1. 

66 DAY-3 RENAMES DAY-1. 
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3.5.13 

SEQUENCED ON 



01 DETAIL. 

03 ITEM-NUMBER PICTURE 9(4) , 
03 VENDOR-IDENT. 

05 VENDOR-CLASS PICTURE 9(3), 

05 VENDOR-NUMBR PICTURE 9(5) . 
03 CUST-IDENT. 

05 CUST-CLASS PICTURE 9(3) . 

05 CUST-NUMBR PICTURE 9(5) . 
66 ALL-IDENT RENAMES VENDOR-IDENT THRU 
CUST-IDENT. 

U(7 f AtnTpkv-s^^vr 'ertN*'*-* vt»*«>6*-M''^' 



-^W*^ CUS'V'H'ft^' 



The SEQUENCED ON clause of a file description entry indicates the location 
of the identification field of a record accessed by RESPOND. RESPOND is 
the remote file processing system for the 3300/3500 computer configurations. 

SEQUENCED ON data-name -9 

IE the FD entry for a file contains this clause and also specifies: 

RECORD CONTAINS integer-1 TO integer-2 CHARACTERS 
DEPENDING ON data-name-n 

where data-name-n is defined as 

COMP-1 



USAGE IS 



COMPUTATIONAL-1 



The input -output control system will insert the following information into the 
mass storage file label when the file is created: 

Leftmost character position, relative to the beginning of the record, of 
the identification field (data-name-9) 

Identification field length 

Identification field mode (numeric or alphanumeric) 

See appendix F for the description of the mass storage file label . 
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3.5.14 

SYNCHRONIZED The SYNCHRONIZED clause specifies positioning of an elementary item 

within a computer word or words. 

(synchronized) (left 



J SYNC ^ I RIGHT 

This clause may appear only with an elementary item, 

SYNCHRONIZED specifies that the COBOL compiler, in creating the internal 
format of this item, must place the item in the minimum number of computer 
words which can contain it. If the size of the item, explicit or implicit, is 
not an exact multiple of the number of characters in a compRiter word, the 
character positions between the item and the computer word boimdary cannot 
be assigned to another item . Such unused character positions are included in: 

the size of any group to which the elementary item belongs ; and 

the eompiter memory allocation when the elementary item appears as 
the object of a REDEFINES clause. 

SYNCHRONIZED LEFT (SYNC LEFT) specifies that the elementary item is 
positioned to begin at the left boundary of a computer word. 

SYNCHRONIZED RIGHT (SYNC RIGHT) specifies that the elementary item is 
positioned to terminate at the right boundary of a computer word. 

When a SYNCHRONIZED item is referenced in the source program, the original 
size of the item, as shown in the PICTURE clause is used in determinii^ any 
action that depends on size, such as justification, truncation, or overflow. 

If the data description of an item contains the SYNCHRONIZED clause and an 
operational sign, the sign of the item appears in the normal operational sign 
position of the computer whether the item is SYNCHRONIZED LEFT or 
SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified for an item within the scope 
of an OCCURS clause, each occurrence of the item is SYNCHRONIZED. 
(See OCCURS. ) 

Items described as SYNCHRONIZED in the File Section are assumed on input 
to be synchronized on the external device, and on output are written in 
SYNCHRONIZED form on external device. 

If the elementary item immediately preceding an item containing the 
SYNCHRONIZED clause does not terminate at a word boundary, the remaining 
character positions are regarded as FILLER and are not addressable. 
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S9(5) 



X(9) 



X(9) 



Examples: 

PICTURE Data 



S9(3)V 
S9(3)V 
S9(3)V 
S9(3)V 
S9(5) 



T^ 

12 3 
— ' — — ; 

ihls 

— ' — ' — i 

ihl 3 

-1— ' — ' 

1T2TT 
I 

ihl 3 
-^ 

1 I2I3 



A 


B 


C 


D 


E 


F 


G 


H 


I 




A 


B 


C 


D 


E 


F 


G 


H 


I 



SYNCHRONIZED 

RIGHT 

LEFT 

RIGHT 

LEFT 

RIGHT 

LEFT 

LEFT 



RIGHT 



Result Item 
(machine words) 








3 mm 



r^/fivf/J^/fn 



A 


B 


c 


D 


E 


F 


G 


H 


I 


ii 







'% 


'% 


A 


B 


c 


D 


E 


F 


G 


H 


I 
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3.5.15 

USAGE The USAGE clause specifies the format of a data item in storage. 

DISPLAY 
( COMPUTATIONAL 



ICOMP 



} 



i COMPUTATIONA L-2 
1. COMP-2 
INDEX 

The USAGE clause can be written at any level; at a group level, it applies to 
each elementary item in the group. The USAGE clause of an elementary item 
cannot contradict the USAGE clause of a group to which the item belongs. 

If USAGE is not specified for an elementary item, or for any group to which 
the item belongs, usage is assumed to be DISPLAY. DISPLAY indicates 
that the data is standard data format. Standard data format uses the decimal 
system to represent numbers (regardless of the radix used by the computer) , 
and the remaining characters in the COBOL character set to describe non- 
numeric data items. 

A COMPUTATIONAL item contains a value to be used in computations; it 
must be numeric. The PICTURE string of a COMPUTATIONAL item without 
an integer suffix can contain only 9 S V and one or more P's. If a group 
item is described as COMPUTATIONAL, the elementary items in the group 
are COMPUTATIONAL; however, the group item, itself, is not COMPUTA- 
TIONAL since a group cannot be used in computations. A COMPUTATIONAL 
item is stored in standard data format and its sign is stored over the low- 
order numeric digit. Its size must not exceed 18 numeric digits. 

COMPUTATIONAL-1 describes an elementary item in fixed point binary 
format. Such an item occupies one computer word (24 bits) and its value 
may not exceed 223-1. A fixed point binary number consists of a sign bit 
and coefficient as shown below: 

2322 00 



coefficient 



sign bit 
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The binary point is assumed to be immediately to the right of the lowest 
order bit (00). The upper bit of any fixed number designates the sign of the 
coefficient (23 low order bits) . 

Sign Bit Coefficient 

1 Negative 

Positive 

COMPUTATIONAL-2 describes an item in floating point format. Such an 
item occupies two computer words (48 bits) and is stored as follows: 

4746 35 00 





Exponent 


Coefficient 



Sign bit 



The coefficient consists of a 36-bit fraction in the low order positions of the 
floating point word. The coefficient is a normalized fraction; it is equal to 
or greater than 1/2 but is less than 1. The highest order bit position (47) 
is occupied by the sign bit of the coefficient. 

Sign Bit Coefficient 

1 Negative 

Positive 

The floating point exponent is expressed as an 11 -bit quantity with a value 
ranging from 0000 to 37778- It is formed by adding a true positive exponent 
and a bias of 2000g or a true negative exponent and a bias of 1777g. This 
results in an effective exponent modulus of ±1023 . 

For further information concerning fixed point and floating point arithmetic, 
refer to the 3300 Computer Systems Reference Manual, Pub. No. 60157000. 

The only meaningful clauses to be used with COMPUTATIONAL-n are the 
VALUE and REDEFINES clauses. COMPUTATIONAL-n items are 
sjmchronized left. 

USAGE IS INDEX describes an elementary item as an index data item. An 
index data item is always one computer word in length in binary format; 
USAGE IS INDEX has the same effect as USAGE IS COMPUTATIONAL-1. 
An index data item is referred to by a SEARCH or a SET statement. It 
contains the character address bias of a table element. (The character 
address bias is the value added to the base character address of a table to 
give the character address of a particular element in the table. ) An index 
data item can also appear in a relation condition, but it cannot be a conditional 
variable. 
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If a group is described with USAGE IS INDEX, all the elementary items in 
the group are assumed to be index data items. The group itself cannot be 
an index data item and cannot be referenced ui a SEARCH or SET statement 
or a relation condition. The group can be referenced in a MOVE or an input- 
output statement; but no conversion takes place. 

SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE, and editing clauses cannot 
be used to describe group or elementary items for which usage is INDEX, 



Examples : 
1. 



01 PRINT-UNE. 

02 FILLER PIC X(8) USAGE DISPLAY VALUE 'EMPLOYEE' 
02 NAME PIC X(16) USAGE DISPLAY VALUE SPACES. 

The described item would appear in memory as follows: 



E 


M 


P 


L 


O 


Y 


E 


E 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 



77 SUB-TOTAL PIC 9999V99 USAGE COMP VALUE ZEROS. 
This item appears in memory as follows: 



















assumed decimal point 

01 OUTPUT-RECORD. 

02 RECORD-SIZE USAGE COMP-1 VALUE 120. 

02 FILLER PICTURE X(13) USAGE DISPLAY VALUE 

'MASTER-FILE-A'. 
02 FILE -DATE PICTURE X(8) VALUE SPACES. 
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TMs group appears in memory as follows: 
binary value 



00 


00 


01 


70 


M 


A 


s 


T 


E 


R 


- 


F 


I 


L 


E 


- 


A 


A 


A 


A 


A 


A 


A 


A 


A 


m 




M 



4. 77 TODAYS-DATE PIC X(8) USAGE DISPLAY VALUE '01/26/68'. 

77 SALARY -MAXIMUM PIC 9(4) V99 USAGE COMPUTATIONAL 

VALUE IS 5000.00. 

77 SALARY -TOTAL PIC 9(4) V99 USAGE IS COMP VALUE ZEROS. 

77 HOURS-WORKED USAGE COMP-1 VALUE ZEROS. 

77 MAX-HOURS-WORKED USAGE COMP-1 VALUE 60. 

77 COMP-VAL-1 USAGE COMPUTATIONAL-2 VALUE IS 3.46875E0. 

77 COMP-VAL-2 USAGE COMP-2 VALUE 12,279296E0. 



The above items appear in memory as follows: 



SALARY -MAXIMUM 
(6 BCD digits) 



HOURS-WORKED 
(fixed point binary) 

COMP-VAL-1 
(floating point) 






1 


/ 


2 


6 


/ 


6 


8 


5 



































00 


00 


00 


00 


GO 


00 


00 


74 


20 


02 


67 


40 


00 


00 


00 


00 


20 


04 


61 


06 


00 


00 


00 


00 


m 


P 


M 


P 


m 


m 


S. 


^ 



TODAYS-DATE 
(8 BCD characters) 



SALARY-TOTAL 
(6 BCD digits) 

MAX-HOURS-WORKED 
(fixed point binary) 



COMP-VAL-2 
(floating point) 
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3.5.16 

VALUE The VALUE clause defines the initial value of working storage items or the 

values associated with a condition name. 

Format 1 r 

VALUE IS Itteral 



Format 2: 

i VALUE IS I 



literal-1 [THRU literal-2] [, literal-3 



j VALUES ARE ) 

[THRU literal-41] 



The VALUE clause cannot be stated for any item for which size is variable, 
explicitly or implicitly. 

A figurative constant may be used wherever literal appears in the format. 

If VALUE is specified for a group, the literal must be a figurative constant 
or a non-numeric literal, and the group area is initialized without regard for 
the individual elementary or group items. VALUE must not be specified 
for subordinate items within the group. 

Format 2 is used only with condition names. In the THRU option, literal-1 
must be less than literal-2, and literal-3 less than literal-4, etc. The 
VALUE clause is required in a condition name entry, and it is the only clause 
permitted in the entry. Characteristics of the condition name are implicitly 
those of its associated data item (its conditional variable). 

The values specified in a VALUE clause must be consistent with any other 
clauses in the data description of the item. The following rules apply: 

If the category of the item is numeric, all literals in the VALUE clause must 
be numeric literals. The literal is aligned according to the alignment rules 
given for the JUSTIFIED clause. The literal must not have a value requiring 
truncation of nonzero digits. Literals assigned to COMPUTATIONAL-2 items 
must be in the floating point literal format. 

If the category of the item is alphabetic or alphanumeric, all literals in the 
VALUE clause must be non-numeric. The literal is aligned according to 
the rules ; the number of characters in the literal must not exceed the size 
of the item. 

All numeric literals in a VALUE clause must have a value within the range 
indicated by the PICTURE. For example, if the PICTURE is PPP99 the 
literal must be within the range . 00000 through . 00099. 
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The function of the editing clause or editing characters in a PICTURE is 
ignored in determining the initial appearance of the item. However, editing 
characters are included in determining the size of the item. 

Rules governing the use of the VALUE clause differ in different sections of 
the Data Division: 



Section 



Rule 



File Section 



Working -Storage/ 
Common-Storage Sections 



Report Section 



The VALUE clause may be used in 
condition name entries. It is docu- 
mentary only in other entries . 

The VALUE clause may be used in 
condition name entries and also to 
specify the initial value of any data 
item. The item assumes the specified 
value at the start of the object program. 
If VALUE is not specified, the initial 
value of an item is unpredictable. 

The VALUE clause causes the report 
data item to assume the specified 
value each time its report group is 
presented. This clause may be used 
only at the elementary level. 



The VALUE clause must not be stated in a record description entry which 
contains an OCCURS clause or in an entry subordinate to an entry containing 
OCCURS. Nor can the VALUE clause be stated in an entry which contains 
a REDEFINES clause, or in an entry subordinate to an entry containii^ 
REDEFINES. These rules do not apply to condition name entries. 

The VALUE clause must not be written for a group item containing descriptions 
that include SYNCHRONIZED or USAGE clauses. 



Examples : 

1. The value of an independent constant item is defined: 

77 FICA-MAX PICTURE 999V9 VALUE IS 150.0. 

The constant item will appear as follows: 



assumed decimal point location 



1 


5 












J 


. 
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2 . Value is specified for the range of a condition name 
associated with an item: 

01 YEABS PICTURE IS 9(4). 

88 SIX-YEARS VALUES ARE 1951 THRU 1956. 

3. Value is specified for the initial value of an item: 

01 HEADING-A. 

03 FIRST -WORD PICTURE X(10) VALUE IS "COBOL-LIST". 
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PROCEDURE DIVISION 



statements in the Procedure Division describe the operations to be performed 
by the object program. Execution of the object program begins with the first 
statement of the Procedure Division, excluding declaratives, and statements 
are executed in order of appearance until they are exhausted. The order of 
execution can be altered according to rules specified below. 

Declaratives define procedures to be executed in addition to the standard error 
and label record handling procedures of the input -output control system . 
Procedures specified in a declarative are executed automatically under the 
input -output control SiJ^stem according to conditions specified in a USE state- 
ment. USE is the only declarative statement. 



4.1 

SPECiFiCATiON 
OF PROCEDURE 
DIVISION 



PROCEDURE DIVISION. 



DECLARATIVES. 
section-name-1 SECTION. 



introductory-sentence-1 . 
paragraph-name-1 . 



END DECLARATIVES. 



[section-name-2 SECTION. ] 
paragraph -name - 2 . 



paragraph-name -3 . 
[section-name-n SECTION. ] 
paragraph -name -n . 
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The division begins with the header and a period on the first line. When 
declaratives are included, the entire declarative portion of the specification 
is written immediately following the division header. If declaratives are not 
included, the next line contains the first section name followed by a space 
and the word SECTION. If sections are not specified, the next line is the first 
paragraph name followed by a period. Sections are optional, but if any para- 
graph in the division is in a section, then all paragraphs must be in sections. 

Statements in the Procedure Division are combined to form sentences and 
paragraphs; paragraphs may be combined to form sections. Sentences are 
terminated by a period and a space; paragraphs by the next paragraph name, 
section name, or the end of the division. Sections are terminated by the next 
section name, the end of the division, or if they are declarative sections, by 
the terminator END DECLARATIVES. Paragraphs and sections are both 
called procedures ; paragraph names and section names are referred to as 
procedure names. The elements of statements are COBOL words, identifiers, 
and literals. A summary description of these elements aixJ of procedure names 
is contained in appendix B. 

When the entire contents of a paragraph or section are contained in the COBOL 
library, the procedure name may be followed by the COPY statement. Section 6 
contains a description of the COBOL library and the COPY statement. 



4.1.1 

DECLARATIVES Declarative sections are grouped at the beginning of the Procedure Division 

under the collective header DECLARATIVES. They are followed by the 
collective termination header END DECLARATIVES. Each declarative is 
specified in a section by itself, preceded by a section header. The introductory 
sentence containing a USE statement follows the header. Associated proce- 
dures are specified according to the same rules as all other procedures in 
the program . The Introductory USE sentence defines the conditions under 
which these procedures are to be executed by the input-output control system. 
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4,1.2 

STATEMENTS 

AND SENTENCES The three types of statements correspond to the three sentence types: 

imperative, conditional, and compiler directing. A semicolon, may be 
used as a separator between statements or within the IF statement to make 
a sentence more readable. A separator may not immediately follow another 
separator. 

An imperative statement indicates a specific action to be taken by the object 
program. An imperative sentence is an imperative statement terminated by 
a period followed by a space. An imperative statement may consist of a 
sequence of imperative statements each separated optionally from the next 
by a separator. Imperative verbs are the following: 



ADDt 


EXAMINE 


multiply! 


SORT 


ALTER 


EXIT 


OPEN 


STOP 


CLOSE 


GENERATE 


PERFORM 


subtract! 


COMPUTEt 


GO 


RELEASE 


TERMINATE 


DISPLAY 


INITIATE 


SEEK 


WRITEtt 



In a statement format, the term, imperative-statement, refers to a sequence 
of consecutive imperative statements ended by a period or an ELSE associated 
with a previous IT verb or a WHEN associated with a previous SEARCH verb. 

A conditional statement specifies a condition to be evaluated for truth, and 
subsequent action of the object program is dependent on this truth value. 
A conditional sentence is a conditional statement or sequence of conditional 
statements optionally preceded by an imperative statement, terminated by a 
period followed by a space. Conditional statements are the following: 

IF RETURN 

READ WRITE with INVALID KEY 

SEARCH Arithmetic statements with ON SIZE ERROR 

A compiler directing statement consists of a compiler directing verb and its 
operands. A compiler directing sentence is a single compiler directing 
statement terminated by a period followed by a space. Compiler directing 
verbs are the following: 

COPY 

ENTER 

NOTE 



t Without the SIZE ERROR option 
tt Without the INVALID KEY option 
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4.2 

ARITHMETIC 
EXPRESSIONS AND 
STATEMENTS 



4.2.1 

EXPRESSIONS 



An arithmetic expression may be composed of the following elements: 

Identifier of a numeric elementary item 

Numeric literal 

Identifiers and literals separated by arithmetic operators 

Two arithmetic expressions separated by an arithmetic operator 

Arithmetic expression enclosed in parentheses 

Figurative constant: ZERO (S) (ES) 

An identifier is a data name followed, as required, by the syntactically 
correct combination of qualifiers, subscripts, and indexes necessary to 
make unique reference to the data item . The identifiers and literals appearing 
in an arithmetic expression are numeric elementary items or numeric literals 
on which arithmetic may be performed. The USAGE of the identifiers is 
specified as: 

COMPUTATIONAL, COMPUTATIONAL-1, or COMPUTATIONAL-2 

The following arithmetic operators are used in arithmetic expressions: 

Operator Meaning 



+ 


Addition 


- 


Subtraction 


* 


Multiplication 


/ 


Division 


** 


Exponentiation 



Each operator is preceded by a space and followed by a space. Logical 
negation is expressed by a unary -. 

An arithmetic expression may begin only with: 

left parenthesis ( unary - variable 

and may end only with: 

right parenthesis ) variable 
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A one-to-one correspondence is necessary between left and right parentheses 
such that each left parenthesis is to the left of its corresponding right 
parenthesis. 

Arithmetic expressions may be evaluated according to paired parentheses. 
Expressions within parentheses are evaluated first, and, within a test of 
parentheses , evaluation proceeds from the least inclusive to the most inclusive 
set. When parentheses are not used, or parenthesized expressions are at the 
same level of Inclusiveness, the following hierarchical order of operations is 
Implied: 

Unary - 

** 

* and / 
+ and - 

When the order of a sequence of consecutive operations is not on the same 
hierarchical level comnletelv srificified hv narent.heses. the; orHpr of f>vn1iin- 
tion is from left to right. 



4.2.2 

STATEMENTS 



Arithmetic statements are ADD, COMPUTE, DIVIDE, MULTIPLY, and 
SUBTRACT. They have several common features: data descriptions of 
the operands need not be the same; any necessary conversion and decimal 
point alignment is supplied throughout the calculation. 



The maximum size of each operand is 18 decimal digits. 

Operands may be COMPUTATIONAL, COMPUTATIONAL-1, or 
COMPUTATIONAL-2 items. 

When the operands in arithmetic statements are not all the same mode, the 
compiler must generate conversions. In the following conversions: 

COMPUTATIONAL-2 to COMPUTATIONAL-1 
COMPUTATIONAL-2 to COMPUTATIONAL 
COMPUTATIONAL-1 to COMPUTATIONAL 

the converted value may not fit in the resultant field. The most significant 
digits could be lost making the result completely unreliable. To avoid this 
situation, the user should specify the ON SIZE ERROR option (see OPTIONS, 
4.4.2). He may also use MOVE statements prior to the arithmetic statements 
to make the operands all the same mode. 
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4.3 
CONDITIONS 



A condition causes the object program to select between alternate paths of 
control depeiKiing on the truth value of a test. Conditions are used in IF, 
PERFORM, and SEARCH statements. 

A condition is one of the following: 

Relation condition 
Class condition 
Comiition-name condition 
Sign condition 
NOT condition 



Condition 



v.- i AND 
(Condition) 



The construction: NOT condition, where condition is one of the first four 
types listed above, is not permitted if the condition itself contains NOT. 

Conditions may be combined into logical operators. The logical operators 
must be preceded by a sj^ce and followed by a space. 



Logical 
Operator 

OR 

AND 

NOT 



Meaning 

Logical Inclusive Or 
Logical Conjunction 
Logical Negation 



The figure below shows the relationships between the logical operators and 
conditions, A and B. 



Condition 


Condition and Value 


A 


B 


A AND B 


A OR B 


NOT A 


true 
false 
true 
false 


true 
true 

false 
false 


true 
false 
false 
false 


true 
true 
true 
false 


false 
true 
false 
true 
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4.3.1 

RELATION 

CONDITION A relatloa condition results in a comparison of two operands; the operands 

may be identifiers, literals, or arithmetic expressions. Comparison of two 
numeric operands is permitted regardless of the format specified by USAGE. 
For all other comparisons the operands must have the same usage specification. 

General format for relation condition: 

identifier-1 \ / identifier-2 



/ idi 
^lit 



literal-1 > relational < literal-2 

-operator f 
arithmetic-expression-1 ) \ arithmetic-expression-2 / 



The first operand (to the left of the operator) is called the subject of the 
condition; the second operand (to the right of the operator) is called the 
object of the condition. The subject and object may not both be literals. 

The relational operators specify the comparison to be made in a relation 
condition. They must be preceded by a space and followed by a space. 



Relational Operator Meaning 

IS r NOT 1 GREATER THAN 



is[not]> 

IS r NOT 1 LESS THAN 

IS[NgT]< 

IS [ not 1 EQUAL TO 

IS [ not 1= 



Greater than, or not greater than 



Less than or not less than 



Equal to or not equal to 



In any relation condition other than the first in a sentence, the subject, the 
subject and relational operator, or the subject and object may be omitted. 
The effect is the same as if the omitted parts were taken from the nearest 
preceding complete relation condition within the same sentence. 

If in a consecutive sequence of relation conditions, separated by logical 
operators, the subjects are identical, the relational operators are identical, 
and the logical connectors are identical, the sequence may be abbreviated 
as follows: 
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Only the first occurrence of the subject and relational oi)erator is written. 
The logical operator is written only once immediately preceding the last 
object. 

IF X IS EQUAL TO 2 OR X EQUAL TO Y OR X EQUAL TO Z MOVE M TO N 

can be abbreviated to 

IF X IS EQUAL TO 2, Y, OR Z MOVE M TO N 

Abbreviation 1 : Identical subjects are omitted in a consecutive seqpience of 
relation conditions. 

IF A EQUAL TO B OR A IS LESS THAN C 
can be abbreviated ta 

IF A EQUAL TO B OR B LESS THAN C 

aad 

IF A EQUAL TO B MOVE M TO N ELSE IF A IS LESS THAN C ADD 
X TO Y 

can be abbreviated to 

IF A EQUAL TO B MOVE M TO N ELSE IF LESS THAN C ADD X TO Y 

Abbreviation 2; Identical subjects ami relational operators are omitted in a 
consecutive sequence of relation conditions. 

IFA=BORA = C 
can be abbreviated to 

IF A = B OR C 
and 

IF A = B ADD X TO Y ELSE IF A = C AND A = D MOVE M TO N 
can be abbreviated to 

IF A = B ADD X TO Y ELSE IF C AND D MOVE M TO N 
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Abbreviation 3: Identical subjects and objects are omitted in a consecutive 
sequence of relation conditions. 

IF A EQUAL TO B OR A IS GREATER THAN B MOVE C TO A IF A IS 
GREATER THAN B ADD B TO A 

can be abbreviated to 

IF A EQUAL TO B OR IS GREATER MOVE C TO A IF GREATER 
ADD B TO A 



4,3.2 

COMPARISON OF 
NUMERIC OPERANDS 



A comparison of numeric operands results in the determination that the 
algebraic value of one is less than, equal to, or greater than the other. The 
length of the operands, in terms of number of digits, is not significant. 



Zero is considered a unique value regardless of the sign. Comparison of 
these operands is permitted regardless of their usage. 



4.3.3 

COMPARISONS 

NONNUMERIC 

OPERANDS 



OF 



A comparison between nonnumeric operands, or one numeric and one non- 
numeric operand, results in the determination that one is less than, equal 
to, or greater than the other with respect to a specified collating sequence of 
characters. 



The size of an operand is the total number of characters in the operand. 
Numeric and nonnumeric operands may be compared only when their usage 
is the same, implicitly or explicitly. 



Operands of Equal Size 

Characters in corresponding positions of the two operands are compared 
from the high-order end through the low -order end. If all pairs of 
characters compare equally, the operands are considered equal. 

The first pair of unequal characters to be encountered is compared to 
determine their relative position in the collating sequence. The operand 
that contains the higher character in the collating sequence is considered 
to be the greater. 
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Operands of Unequal Size 

The comparison of characters proceeds from high-order characters to 
low-order characters until a pair of unequal characters is encountered or 
until the characters in one of the operands are exhausted. If remaining 
characters ia the longer operand consist entirely of spaces, the two 
operands are considered equal, otherwise the longer operand is con- 
sidered greater. 

4.3.4 

COMPARISONS 

INVOLVING 

INDEX NAMES AND/OR 

INDEX DATA ITEMS Comparison of two iadex names is the same as if the corresponding occurrence 

numbers are compared. Conversion from character address bias is performed 

automatically. 

In the comparison of an index name with a literal or data item (other than an 
index data item) , the occurrence number is compared to the actual value of 
the data item or literal. Conversion of the character address bias in the 
index name occurs prior to the comparison. 

In the comparison of an index data item with an index name or another index 
data item, the actual values are comjmred without conversion. 

The result of any other comparison involving an index data item is unpredictable . 



4.3.5 

SIGN CONDITION 



This condition determines whether or not the algebraic value of a numeric 
operand is less than, greater than, or equal to zero. 



identifier 



POSITIVE 



IS ( NOT ] <( NEGATIVE 
arithmetic-expression ) f ZERO 



An operand is positive if its value is greater than zero, negative if its value 
is less than zero, and zero if its value is equal to zero. 
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4.3.6 

CLASS CONDITION 



This condition determines whether the operand is numeric, that is, consists 
entirely of the characters 0, 1, 2, 3, ..., 9, with or without an operational 
sign, or whether it is alphabetic, that is, consists entirely of the characters 

^5 x>j L^; =.o; £a ^ SpHC6c 

The operand being tested must be described, implicitly or explicitly, as 
USAGE DISPLAY. 

The NUMERIC test cannot be used with an item described as alphabetic. 
The record description of the item being tested is determined to be numeric 
only if the contents are numeric. 

The ALPHABETIC test cannot be used with an item described as numeric. 
The item being tested is determined to be alphabetic only if the contents 
consists of any combination of alphabetic characters and the space. 

If the low-order character position of an otherwise numeric field contains a 
digit with a sign overpunch, the field is determined to be totally numeric. 
For a one-character alphanumeric field, that contains a numeric digit with 
a sign overpvmch, both the NUMERIC and ALPHABETIC tests are considered 
true, and the results of the NOT option of the tests are false. An example 
of the latter case follows: 



02 FLD-A PIC X, VALUE 'A' 

IF FLD-A NUMERIC GO TO FLD-NUM 
IF FLD-A ALPHABETIC GO TO FLD-ALPHA 
IF FLD-A NOT NUMERIC GO TO FLD-ALPHA 
IF FLD-A NOT ALPHABETIC GO TO FLD-NUM 

The first two tests will take the true path; the last two tests will take the 
false path. Since 'A' in internal octal form is 21, it can be interpreted as 
either an alpha A or a numeric +1 . 
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4.3.7 

CONDITION-NAME 
CONDITION 



A conditional variable is tested to determine whether or not its value is 
equal to one of the values associated with a condition name. 

[ NOT] condition-name 

If the condition name is associated with a range or raises of values, the 
conditional variable is tested to determine whether or not its value falls in 
this range, including the end values. 

The rules for comparing a conditional variable with a condition name are the 
same as those specified for relation conditions. 

The result of the test is true if one of the values corresponding to the condition 
name equals the value of its associated conditional variable. 



4 3 8 

EVALUATION RULES 



Evaluation rules for conditions are analogous to those given for arithmetic 
expressions except that the following hierarchy applies: 

arithmetic expression 

all relational operators 

NOT 

AND 

OR 
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4.4 

COMMON OPTIONS 

IN STATEMENTS Three options appear frequently in the statement descriptions that follow: 

ROUNDED, SIZE ERROR, and CORRESPONDING 



4.4.1 

ROUNDED OPTION 



Truncation occurs after decimal point alignment if the number of fractional 
places in the result of an arithmetic operation is greater than the number of 
fractional places provided for the result in the receiving item. Excess digits 
are truncated according to the format of the item containing the result, 
(result identifier). When rounding is requested, the absolute value of the 
result is increased by 1 when the most significant digit of the excess is 
greater than or equal to 5 . 



When the low -order integer positions in a result identifier are represented 
in a PICTURE by the character P, rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 



4.4.2 

SIZE ERROR OPTION 



A size error condition exists if the value of a result exceeds the largest value 
that can be contained in the associated result identifier after decimal point 
alignment. The size error condition applies only to final results , except in 
MULTIPLY and DIVIDE statements where size error applies to the inter- 
mediate results as well. Division by zero always causes a size error 
condition. If ROUNDED is specified, rounding takes place before checking 
for size error. When a size error condition occurs, subsequent action 
depends on whether or not the SIZE ERROR option is specified. 



If SIZE ERROR is not specified and a size error condition occurs, 
the value of the result identifier is unpredictable. 

If SIZE ERROR is specified and a size error condition occurs, the 
previous value of the result identifier is not altered. After the 
operation is completed, the imperative statement in the SIZE 
ERROR option is executed. 

For CORRESPONDING arithmetic operations, the imperative statement in 
the SIZE ERROR clause is not executed until all individual additions or 
subtractions are completed. 

Invalid non-nimieric data contained within a numerically defined field does 
not constitute an ON SIZE error condition during arithmetic operations. 
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4.4.3 

CORRESPONDING 

OPTION For this discussion, d^^ and d^ are each identifiers that refer to group items. 

A pair of data items, one from d and one from d correspond if the following 

conditions exist: 

A data item in d.. and a data item in dg have the same name and the 
same qualifications up to, but not including, d and d . 

At least one of the data items is an elementary data item in the 

case of a MOVE statement, and both of the data items are elementary 

numeric data items in the case of ADD or SUBTRACT. 

Neither d nor d are data items with level number 66, 77, or 88. 

When the CORRESPONDING option is specified, only the pairs of corresponding 
items as defined above are moved, added, or subtracted. When the groups 
identified by d^^ or A^ contain items described with RENAMES, REDEFESTES, 
or OCCURS clauses, those items are ignored; however, the groups themselves 
may be described with REDEFINES or OCCURS or be subordinate to items 
with these clauses. 
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4.5 

TABLE HANDLING 



The table haudling functions provide a method for accessing tables of repet- 
itive contiguous data items. Tables described with the OCCURS clause in the 
Data Division are scanned with the SEARCH statement in the Procedure 
Division. Items in tables also may be referenced by subscripting (up to 
three levels) or by indexing. 



4.5.1 

SUBSCRIPTS 



Subscripts are used only when reference is made to an individual element in 
a list or table of like elements that have not been assigned individual data 
names. The subscript is a numeric literal integer, the special register 
TALLY, or a data name. The data name must identifi^ a numeric elementary 
item that represents an integer. The data name used as a subscript ma5'' be 
qualified but not subscripted. 



The subscript may contain a sign, but the lowest permissible subscript value 
is 1. The highest permissible subscript value, in any particular case, is 
the maximum occurrences of the item as specified in the OCCURS clause. 



The subscript, or set of subscripts, that identifies the table element is en- 
closed in parentheses immediately following the terminal space of the table 
element data name. The table element data name appended with a subscript 
is called a subscripted data name or an identifier. When more than one sub- 
script appears within a pair of parentheses, the subscripts must be separated 
by commas. A space must follow each comma, but no space may appear 
between the left parenthesis and the leftmost subscript or between the right 
parenthesis and the rightmost subscript. 



data-name 



OF 

IN 



data-name-1 



(subscript [, subscript] . . .) 



4.5.2 

INDEXING 



Indexing is used to reference individual elements within a table of like elements. 
An index name is assigned to the level of the table in which it appears with 
the INDEXED BY option of the OCCURS clause when the table is described in 
the Data Division. The index name is initialized by a SET statement before 
it is used as a table reference. 



Direct Indexing is specified by using an index name as a subscript. Relative 
indexing is specified when the index name is followed by the operator + or - 
followed by an unsigned integral numeric literal all enclosed in the parentheses 
immediately following the terminal space of the data name. 
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Composite format: 



data-name 



of( 



IN \ 
, index -name 



data -nam e-1 



integer 



(index-name 

■) 



integer 



4.5.3 

SEARCH FUNCTION The search function operates in the linear mode (SEARCH) or the binary- 

bisecting mode (SEARCH ALL). Both types of search terminate when a 
stated condition is met when table element equals search argument. All 
tables to be searched must have at least one element described as an index 
name with the INDEXED BY option of the OCCURS clause. The index name 
is incremented during search operations by the element character offset, 
and the index name always contains the character address bias of the table 
entry currently being compared. See paragraph 4.3.4 for rules governing 
the comparison of index names and index data items. 

The element character offset is the number of character positions in a table 
element. The character address bias is the value added to the base character 
address of the table to give the character address of a particular element 
in the table. 

4.5.4 

RESTRICTIONS ON 
INDEXING, 
SUBSCRIPTING 

AND QUALIFICATION Tables may have one, two, or three dimensions; therefore, references to an 
element in a table may require up to three subscripts or indexes. 

A data name may not be subscripted nor indexed when the data name is used 
as an index, subscript, or qualifier. 

When a data item requires qualification, subscripting or indexing, the indexes 
or subscripts are stated following all necessary qualification. 

Subscripting and indexing must not be used together in a single reference. 

Where subscripting is not permitted, indexing is also not permitted. 

An index can be modified only by the SET, SEARCH, and PERFORM statements. 

Index data items are described by USAGE IS INDEX. They permit storage of 
the values of index names as data with conversion. 

The commas shown in the formats for indexes and subscripts are required. 
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4.6 
DEBUGGING AID 



4.7 

PROCEDURE 
DIVISION 
STATEMENTS 



The TRACE statement is a source language debugging aid. It is used to 
display the contents of data items and literals during job execution. The user 
can include any number of TRACE statements and he can specify the frequency 
and point of execution. 



The following pages contain the Procedure Division statements in alphabetical 
order. 



4.7.1 

ACCEPT 



The ACCEPT statement causes low volume data to be read from the system 
input file (INP) or the console. 



ACCEPT identifier [FROM mnemonic-name] 

The file or device must be associated with the mnemonic name in the 
SPECIAL-NAMES paragraph of the Environment Division. 

ACCEPT causes the next set of data available at the file or device to replace 
the contents of the data item named by the identifier. 

If the size of the data item is less than the fixed input unit (80 characters for 
system input, 127 characters for the console), the data appears as the first 
set of characters within the minimum unit. When data is input from INP, if 
the size of the data item is greater than 80 characters, multiples of 80 char- 
acters are read until the storage area allocated to the data item is filled. 
If the data item is greater than the fixed unit but is not an exact multiple, 
the remainder of the last fixed unit is not accessible. 

If the FROM option is not given, data is accepted from the console. 
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4.7.2 

ADD The ADD statement causes two or more numeric operands to be summed and 

the result to be stored. 



Format 1 : 



ADD 



\ identifier-1 
jliteral-l 



5identifier-2 
literal-2 



. . . identifier-n [ROUNDED] 



[; ON SEE ERROR imperative-statement] 

Values of operands are added together and the sum is stored in the location 
of the last operand specified. This operand may not be a literal. 



Format 2: 



,_^ Udentifier-1 
^2D literal-l 



j identif ier-2 
'i literal-2 



... TO identifier -m [ROUNDED] 



[, identifier-n [ ROUNDED ]] . . . 

[; ON SIZE ERROR imperative-statement] 

Values of operands preceding the word TO are added together, then the sum 
is added to the current value in each identifier-m, identifier-n, . . . , and the 
result is stored in each identifier-m, identifier-n, . . . , respectively. 



Format 3: 



.) identifier-1 / i identifier-2 
^^^^ I literal-1 I ' | literal-2 



i identifier -3 
'jliteral-3 



GIVING 



identifier-m [ ROUNDED ] [identifier-n [ ROUNDED] ] . . . 
[; ON SIZE ERROR imperative-statement] 

Values of operands preceding the word GIVING are added together, then the 
sum is stored as the new value of identifier-m, identtfier-n, . . . 

Format 4: 

^^^ j CORRESPONDING J ^^^^^^^^^^_^ ^O identifier-2 [ ROUNDEDl 
I COjvR j 

[ ; ON SIZE ERROR imperative-statement] 

Data items in identifier-1 are added to and stored in corresponding data items 
in identifier-2. 

In Formats 1,2, and 3 each identifier refers to an elementary numeric item; 
identifiers to the right of GIVING may refer to data items containing editing 

symbols. Each literal must be a numeric literal. 
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The composite of operands must not contain more than 18 digits. The com- 
posite is the data item resulting from superimposing all operands, aligned 
by decimal points. The data items that follow GIVING are not included in the 
composite. The compiler insures that enough places are carried to avoid 
loss of significant digits during execution. 

K one or more of the additions results in a size error, the procedure RATE- 
OVERFLOW-PROC is performed after completion of the whole ADD statement. 
Each receiving item that has a size error retains its current value instead of 
the computed result. Control returns to the statement following ADD statement. 

Examples : 

ADD MONTHLY-EARNINGS OVERTIME -EARNINGS GROSS-YEAR- 
TO-DATE 

ADD MONTHLY-EARNINGS OVERTIME -EARNINGS GIVING MONTHLY- 
GROSS-PAY WORK -MONTHLY -GROSS-PAY 

ADD HOS-INSURANCE LIFE-INSURANCE STATE -UNEMPLOYMENT 
UNITED MISCELLANEOUS GIVING TOTAL-DEDUCTIONS 

ADD CORRESPONDING UPDATE -RATE -TABLE TO RATE -TABLE ON 
SIZE ERROR PERFORM RATE -OVERF LOW -PROC 

UPDATE -RATE -TABLE and RATE -TABLE are described as follows: 



01 UPDATE-RATE-TABLE 
03 EASTERN-REG 
05 NEW -YORK 

07 RATE 
05 BOSTON 
07 RATE 
03 WESTERN-REG 

05 LOS-ANGELES 
07 RATE 



01 RATE-TABLE 

03 EASTERN-REG 
05 NEW -YORK 

07 RATE 
05 BOSTON 

07 RATE 
05 PHILADELPHIA 
07 RATE 



03 WESTERN-REG 

05 LOS-ANGELES 

07 RATE 
05 SAN-FRANCISCO 

07 RATE 

03 MIDWEST-REG 



The rates for New York, Boston, and Los Angeles in the UPDATE-RATE- 
TABLE are added to the rates for these three cities in the RATE-TABLE, 
and the results are the new rates. No other alteration occurs in the 
RATE -TABLE. 
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4.7.3 

ALTER The ALTER statement modifies a predetermiaed sequence of operations. 

ALTER procedure-name-1 TO [ PROCEED TO ] procedure-name-2 
[, procedure-name-3 TO [PROCEED TO_]procedure-name-4] . . . 

Each procedure-name-1, procedure-name-3, ... is the name of a paragraph 
that contains only one sentence consisting of a GO TO statement without the 
DEPENDING option. 

Each procedure-name-2, procedure-name -4, ... is the name of a paragraph 
or section in the Procedure Division. 

During execution of the object program , the ALTER statement modifies the 
GO TO statement in the paragraph named procedure-name-1, procedure- 
name-3, . . . replacing the object of the GO TO by procedure-name-2, 
procedure-name-4, . . . , respectively. 

Example: 

ALTER CCl TO PROCEED TO CCS; CCS TO PROCEED TO 

FINAL-RESULT. 
CCO. ADD 001 TO COUNTR. 

IF COUNTR IS LESS THAN OVFLW GO TO CC2. 
CCl. GOTO. 
CC2. MOVE CORRESPONDING INPUT-TABLE TO WORK-AREA. 

ADD INPl OF WORK -AREA TO I-TOTAL. 

ADD INP2 OF WORK-AREA TO P-TOTAL. 

GO TO CCO. 
CCS. GO TO CCIO. 



When the ALTER statement is executed, the paragraph name CCS is inserted 
as the object of the GO TO in paragraph CCl; and the paragraph name 
FINAL-RESULT is inserted in place of CCIO as the object of the GO TO in 
paragraph CCS. FINAL-RESULT and CCIO must be procedure names in the 
COBOL program. 
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4.7.4 

CLOSE 



The CLOSE statement terminates the processing of input and output reels, 
units, and files with optional rewind and/or lock where applicable. 



CLOSE file-name-1 



, file -name -2 




WITH 



WITH 



NO REWIND 
LOCK 



NO REWIND 
LOCK 



Each file name is the name of a file upon which the CLOSE statement operates; 
it must not be the name of a sort file. 

The REEL, LOCK, and NO REWIND options are applicable only to tape files. 
The UNIT option is applicable only to mass storage files in the sequential 
access mode. UNIT, throughout this specification means the storage device 
rather than the driver or power unit. Its use in the CLOSE statement is 
documentary and has the same effect as CLOSE file-name. It is illegal to 
specify CLOSE UNIT with the LOCK or NO REWIND options. 

To explain CLOSE options for the various storage devices, all files are 
classified as follows: 

Non-reel A file on an input or output device for which concepts of 

rewinding and reels have no meaning (disk file, disk pack, 
drum, reader, printer, punch, TTY, CRT) 

Single-reel A file entirely contained on one reel of tape; the reel 

may contain more than one file 

Multi-reel A file contained on more than one reel of tape 

A CLOSE statement with no options performs the following standard close 
operations on non-reel, single-reel, or multi-reel files: 



Input files: 



Output files: 



Input- 
output files: 



If the file is positioned at its end and there is an ending label 
record, the ending label record is checked and the data area 
is released. If the file is positioned at its end and there is no 
ending label record, or if the file is not positioned at its end, 
the data area is released but no ending label checking takes 
place. An input file is positioned at its end when the AT END 
imperative statement has been executed but no CLOSE statement 
has yet been executed. 

If an ending label record has been described for the file, it is 
constructed and written on the output device and the data area 
is released. 

Regardless of the position of the file, the data area is released. 
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Single or multi-reel files are rewound; the file is positioned at its beginning 
on the last (or only) used reel. The previous reels are not affected. 

If a mass storage file is described with a FILE LIMITS clause, the input- 
output control system automatically releases the unused portion of the area 
allocated to the file when the file is closed. For a mass storage file CLOSE 
UNIT has the same effect as CLOSE FILE. 

CLOSE WITH LOCK applies only to tape files. It performs the standard close 
operations for single-reel and multi-reel files, rewinds the file, and unloads 
it. The file is no longer available for processing. 

CLOSE WITH NO REWIND applies only to tape files. The file is closed with 
the standard close procedures but the current reel remains in its current 
position. 

When multi-reel files are closed, previous reels are not affected unless 
controlled by a prior CLOSE REEL. If the current reel is not the last in an 
input file, succeeding reels are not processed in any way. CLOSE REEL 
applies only to multi-reel tape files. The following operations are performed 
in a standard close reel: 

In{xit files: Reel swap and standard beginning reel label and user's be- 
ginning reel label procedures (if specified by USE) . Order of 
execution is specified in USE statement. 

Makes available the next data record on the new reel. 

Output files: Standard ending reel label and user's ending reel procedure 
(if specified by USE) . Order of execution is specified in 
USE statement. 

Reel swap and standard beginning reel label procedure and 
user's beginning reel label procedure if specified by USE. 

The file is rewound, positioned at its beginning on the last used reel. 

CLOSE REEL WITH LOCK causes the standard close reel operations to be 
performed on the current reel of a multi-reel tape file. In addition, the 
reel is rewound and unloaded. The reel cannot be processed again as a 
part of the file. 

CLOSE REEL WITH NO REWIND causes the standard close reel operations 
to be performed on the current reel of a multi-reel tape file but the reel is 
left in its current position. 
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4.7.5 

COMPUTE 



The COMPUTE statement assigns to data items the value of a numeric data 
item, literal, or arithmetic expression. 

COMPUTE identifier-1 [ ROUNDED ] , [identiEier-2 ROUNDED H . . . 



FROM i 
EQUALS j 



!identifier-n 
literal-1 
arithmetic-expression ' 



[; ON SIZE ERROR imperative-statement] 

The COMPUTE statement allows the user to combine arithmetic operations 
without the restrictions on the composite of operands and/or receiving data 
items imposed by the arithmetic statements ADD, SUBTRACT, MULTIPLY, 
and DIVIDE. 

Each identifier must refer to an elementary numeric item , except that 
identifiers to the left of the equals sign may describe data items containing 
editing symbols. Literal-1 must be a numeric literal. The arithmetic ex- 
pression option permits the use of any meaningful combination of identifiers, 
numeric literals, and arithmetic operators, parenthesized as required. 
The words FROM and EQUALS are equivalent to the equals sign (=). 



The maximum size of each operand is 18 decimal digits. 

The identifier-n and literal-1 options provide a method for setting the values 
of identifier-1, equal to the value of identifier-n or literal-1. 

Examples : 



COMPUTE COST-PRICE = 
(1 + PROFIT -FACTOR) . 

COMPUTE DATA-1 = 100. 



(HOURS * RATE + PARTS-COST) * 
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4.7.6 

DISPLAY 



The DISPLAY statement causes low volume data to be written on the system 
output file (OUT), the system pwnch file (PUN), or the console. 



DISPLAY 



jliteral-1 f 
(identifier-1^ 



liter al-2 
identifier-2 



. . . [ UPON mnemonic-name] 



The mnemonic name is associated with a system file or the console in the 
SPECIAL-NAMES paragraph in the Environment Division. Each literal may 
be any figurative constant except ALL. 

DISPLAY causes the contents of each operand to be written on the system file 
or the console in the order listed. If a figurative constant is specified as 
one of the operands, only a single occurrence of the figurative constant is 
displayed. 

When a DISPLAY statement contains more than one operand, the data com- 
prising the first operand is stored as the first set of characters, the data 
comprising the second operand as the second set of characters, and so on, 
until the maximum output file and 127 characters for the console) is filled. 
This operation continues until all information is displayed. Data comprising 
an operand may extend into subsequent units. 

If the UPON option is not used, the data is displayed on the console. 

COMP-2 items are converted to a standard 18-character format: 
+ . 9(ll)E+999 before being displayed. 

COMP-1 items are converted to a standard 8-character format: 
+9(7) before being displayed. 

All other items are displayed without conversion. 
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4.7.7 

DIVIDE The DIVIDE statement divides one numeric data item into another and sets 

the value of a data item equal to the results. 
Format 1 : 

DIVIDE )i'ie'iti^ier-l/ pjTO identifier-m [ROUNDED] 
(literal-1 ) 

[, identifier-n ROUNDED] ] . . . [; ON SIZE ERROR imperative- 

statement] 

The value of identtEier-1 or literal-1 is divided into the initial values of 
identifier-m , identifier-n, . . . Dividend values are replaced by the 
quotient values. 



Format 2 : 



_ \ identifier-1 ( ,,,^^ \ identifier-2 ( ^^,j^j^_ ,H_Hf,-.^_. 
— j literal-1 \ | literal-2 \ 



[ROUNDED] [, identifier-n [ROUNDED] ]. . . 
[; ON SIZE ERROR imperative-statement] 

The initial value of identtfier-1 or literal-1 is divided into identifier-2 or 
literal-2 and the result is stored in identifier-m, identifier-n, . . . respectively. 

Format 3: 

Udentifier-1 / „„ identifier -2 ( ^nrrivT^ -j tf 
eiVffiE I literal-1 [ ^ ) literal-2 \ GWING ^dentxfxer-m 

[ROUNDED] [, identifier-n [ ROUNDED] ]. . . 
[; ON SIZE ERROR imperative-statement] 

The value of identifier-1 or Iiteral-1 is divided by the value of identifier-2 
or literal-2 and the result is stored in identifier-m, identifier-n, . . . 
respectively. 

Each identifier must refer to a numeric elementary item, except that any 
identifiers to the right of the word GIVING can refer to data items that con- 
tain editing symbols. Each literal must be a numeric literal. 
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The maximum size of each operand is 18 decimal digits. 
Examples : 

1. DIVIDE 1. 8 INTO CONVERTED-TEMPl CONVERTED-TEMP2 
CONVERTED-TEMP3 CONVERTED-TEMP4. 

2. DIVIDE ABLE INTO BAKER GIVING CHARLEY 
ROUNDED ON SIZE ERROR GO TO RECOMPUTE. 

3. DIVIDE TOTAL BY DAILY GIVING RATE ROUNDED 
RATE -A ROUNDED ON SIZE ERROR 
PERFORM DIVIDE -FAULT-ROUTINE. 



4.7.8 

ENTER The ENTER statement makes it possible to use more than one language in 

the same program. 

ENTER language-name; routine-name [; (parameter -string)] 

Language-name may be COBOL, FORTRAN, or COMPASS for USASI COBOL, 
USASI FORTRAN, COMPASS/MASTER. Statements in the other language are 
executed as if they had been compiled into the object program following the 
ENTER statement. 

Routine name identifies the portion of codii^ to be executed at this point in 
the procedure sequence. A routine name is a COBOL word which may be 
referred to only in an ENTER sentence. It is 1-8 characters and must con- 
form to requirements for an entry point name recognizable by the MASTER 
loader. It is automatically declared as an EXTERNAL symbol by the USASI 
COBOL compiler. 

Parameter strings may contain any or all of the following: procedure names, 
file names, identifiers, non-numeric literals, and signed numeric literals. 

Parameter names must be separated by commas. A numeric literal must be 
prefixed by plus or minus to distinguish it from an all numeric procedure name. 

Parameters occupy 24, 36, or 48 bits in storage. The compiler analyzes the 
parameter name list and codes and structures the parameters as shown below. 
A procedure name or a file name and floating point or binary integer param- 
eters require one word only; BCD parameters require two words. 
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Words 



23 



19 17 



Parameter 
Code 



Character Address 



23 



17 15 



Parameter 
Code 


^m 


Word Address 



23 



23 



17 



Point 
Location 


Numeric 
Length 


Point 
Location 


Numeric 
Length 



(BCD numeric) 



16 



m 



Alpha Ler^h 



(BCD alpha) 











Descriptive 


Code 


Type 
Procedure name 


Address 
word 


Chapter 


Word 


00 




40 


File name 


word 






52 


BCD Alpha 


character 


2 


follows 


56 


BCD Alpha 


character 


1 


follows 


60 


BCD Numeric 


character 


2 


follows 


61 


BCD Numeric 


character 


2 


precedes 


64 


BCD Numeric 


character 


1 


follows 


65 


BCD Numeric 


character 


1 


precedes 


70 


Binary Interger 


word 


2 




71 


Floating Point 


word 


2 




74 


Binary Integer 


word 


1 




75 


Floating Point 


word 


1 
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The descriptions of BCD numeric items are in the half-word preceding or 
following the parameter depending on the code. A one- or two-chapter method 
of addressing is indicated by the code (see MASTER Reference Manual for 
description of chapters). The word address of a file name is the beginning 
address of the File Environment Table entrj^ associated with that file name. 

The size and address of a literal are passed as parameters in the same 
manner as the size and address of identifiers. When a subscripted identifier 
is listed in the ENTER parameter string, the compiler computes the actual 
subscripted address and passes it in the appropriate parameter word. 

Before control is passed to the routine named by ENTER, the mode of program 
execution is automatically relocated to instruction state and, upon return from 
the routine, is relocated to operand state. 

Refer to Appendix J for ENTER Verb examples . 
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4.7.9 

EXAMINE The EXAMINE statement replaces or counts the number of occurrences of a 

given character in a data item. 

TALLYING ( UNTIL FIRST , ,.^ , , .^^^^ .^t^.^^ 
) aTt ( iiteral-1 [ REPLACING 

^ )7"^T^TivTr^ ( BYliteral-2] 
EXAMINE ) ( LEADING * 

identifier , , 

( all 

REPLACING ^ LEADING > literal -3 BY literal -4 

^ [UNTIL ] FIRST 

The description of the identifier must be USAGE is DISPLAY (explicitly or 

Each literal must consist of a single character belonging to a class consistent 
with that of identifier. A literal may be any figurative constant, except ALL. 

Examination proceeds as follows: 

• Non-numeric data items are examined from left to right. Each 
character in the data item specified by the identifier is examined in 
turn. 

• Numeric data item referred to by EXAMINE must consist of numeric 
characters. Examination starts at the leftmost character and pro- 
ceeds to the right. Each character except the sign is examined in 
turn. The sign is ignored by EXAMINE. 

The TALLYING option creates an integral count which replaces the vahie of a 
special register called TALLY (Special Register, appendix B). The count 
represents the number of: 

• Occurrences of literal-1 when the ALL option is used. 

• Occurrence of literal-1 prior to a character other than Iiteral-1 when 
the LEADING option is used. 

• Characters not equal to literal-1 before the first occurrence of 
literal-1 when the UNTIL FIRST option is used. 
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For the REPLACING options, the replacement rules are: 

• When the ALL option is used, literal-2 or literal-4 is substituted 
for each occurrence of literal -1 or literal-3 . 

• When the LEADING option is used, the substitution of literal-2 or 
literal-4 terminates as soon as a character other than literal-1 or 
literal-3 or the righthand boundary of the data item is encountered. 

• When the UNTIL FIRST option is used, the substitution of literal-2 
or literal-4 terminates as soon as literal-1 or literal-3 or the 
righthand boundary of the data item is encountered. 

• When the FIRST option is used, the first occurrence of literal-1 or 
literal-3 is replaced by literal-2 or llteral-4. 



4.7.10 

EXIT The EXIT statement provides a common end point for a series of procedures. 

EXIT . 

The word EXIT appears in a sentence by itself. It must be preceded by a 
paragraph name and be the only sentence in the paragraph. 

It is sometimes necessary to transfer control to the end point of a series of 
procedures. Normally control is transferred to the next paragraph or section, 
but in some cases this does not have the required effect. For instance, the 
point to which control is to be transferred may be at the end of a range of 
procedures governed by a PERFORM or at the end of a declarative section. 
The EXIT statement is provided to enable a procedure name to be associated 
with such a point. 

If control reaches an EXIT paragraph and no associated PERFORM or USE 
statement is active, control passes through the EXIT point to the first 

sentence of the next paragraph. 
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4.7.1 1 

GO TO The GO TO statement causes control to be transferred from one part of the 

Procedure Division to another. 

Format 1 : 

GO TO [procedure -name -1] 

Format 2: 

GO TO procedure-name-1 [, procedure-name-2] ..., 
prooedure-name-n DEPENDING ON identifier 

Each procedure name is the name of a paragraph or section in the Procedure 
Division. Identifier is the name of a numeric elementary item with no posi- 
tions to the right of the assumed decimal point. 

Whenever a format 1 GO TO statement is executed, control is transferred to 

been altered by an ALTER statement. 

If procedure-name-1 is not specified in format 1, an ALTER statement re- 
ferring to this GO TO statement must be executed prior to the GO TO statement. 
When the GO TO statement is referred to by an ALTER statement the following 
rules apply: 

• GO TO statement must have a paragraph name. 

• GO TO statement must be the only statement in the paragraph. 

If a format 1 GO TO statement appears in an imperative sentence, it must be 
the only or last in a sequence of imperative statements. 

A format 2 GO TO statement causes control to be transferred to procedure- 
name-1, procedure-name-2 procedure-name-n, depending on whether 

the value of the identifier is 1 , 2 , . . . , n. If the value of identifier is other 
than a positive or imsigned integer in the range 1 to n, control passes to the 
next statement. 

Examples : 

1. ADD 1 TO COUNT. 

2. IF COUNT GREATER 3 GO TO CONTINUE. 

3. GO TO PRl PR2 PR3 DEPENDING ON COUNT. 
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4.7. 12 

IF 



The IT statement causes a condition to be evaluated; subsequent action of the 
object program depends on whether the value is true or false. 



\ statement-1 






IF condition; ^^^^ g^^^^^^^ 



; ELSE 



!statement-2 
NEXT SENTENCE 



Statement-1 and statement -2 represent a conditional statement or an impera- 
tive statement; either may be followed by a conditional statement. 

The phrase ELSE NEXT SENTENCE may be omitted if it immediately precedes 
the terminal period of the sentence. 

When an IF statement is executed, the following action is taken: 

• If the condition is true, statements immediately following the condition 
are executed; control then passes implicitly to the next sentence. 

• If the condition is false, either statements following ELSE 
(statement-2) are executed, or if the ELSE clause is omitted, the 
next sentence is executed. 

If the words NEXT SENTENCE are written and the condition is met, control 
passes explicitly to the next sentence. 

Examples : 

1. IF COUNTER IS GREATER THAN 5 GO TO RESET-CNT; ELSE 
ADD 1 TO COUNTER GO TO UPDATE-PROC. 

2. IF A IS NUMERIC MULTIPLY A BY B; IF B IS LESS THAN 50 
ADD A B TO C ELSE ADD A B TO D ELSE GO TO BADCLASS. 

3. IF PERFORM-COUNT IS POSITIVE; GO TO START; ELSE NEXT 
SENTENCE. 

4. DATA DIVISION. 

01 PASSING-GRADE. 

88 PASS VALUE 75 TO 100. 
88 FAIL VALUE TO 75. 



PROCEDURE DIVISION. 



IF PASS GO TOX. 



If statement-1 and statement-2 contain an IF statement, the IF statement is 
said to be nested. 
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IF statements within IF statements may be considered as paired IF and ELSE 
combinations, proceeding from left to right. Any ELSE encountered is con- 
sidered to apply to the immediately preceding IF that has not been already 
paired with an ELSE. 

When control is transferred to the next sentence, implicitly or explicitly, 
control passes to the next sentence as written or to a return mechanism of a 
PERFORM or a USE statement. 

The following sentence contains two independent nests of conditional statements. 
The first nest ends after the statement PERFORM procedure-name-2; the 
second nest consists of the remainder of the sentence and has an implied 
ELSE NEXT SENTENCE before the period. A, B, C,D, E, F each corresponds 
to a conditional expression. 

IF A; IF B PERFORM procedure-name-1 ELSE NEXT SENTENCE 
ELSE IF C NEXT SENTENCE ELSE PERFORM procedure-name-2 
IF D PERFORM procedure-name-3 IF E PERFORM procedure-name-4 
IF F PERFORM procedure-name-5 ELSE PERFORM procedure-name-6 
ELSE STOP RUN. 
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The following flow -chart Indicates the execution of this sentence. 



A? 



False 



True 



B? 



, False 



Next 
Sentence 



True 



Procedure- 
name-1 



Next 
Sentence 



C? 



\True 



Next 
Sentence 



Procedure- 
name-2 



False 



D? 



Next 
Sentence 



True 



Procedure- 
name -3 



E? 



) False 



True 



Procedure- 

name-4 



F? 



) False 



Stop 



Procedure- 
name-6 



Next 
Sentence 



True 



Procedure- 
name-5 



Next 
Sentence 
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4.7.13 

MOVE 



The MOVE statement transfers data, in accordance with the rules of editing, 
to one or more data areas. 

Format 1: 

_ \ identlfier-lf 



MOVE 



Format 2: 



, , C TO identifier-m [, identifier-nj . . . 
literal-1 \ — 



COEBESPONDING , ., ^... , t,^ . , .... „ 

MOVE { > identifier-1 TO identifier-2 

I CORK 



In format 1, identifier-1 and literal-1 represent the sending area; identifier-m, 
identi£ier-n. . . , represent the receiving area. 

The data designated by the literal or identifier-1 is moved first to identifier-m, 
then to identifier-n, etc. 

When both the sending and receiving items are elementary the move is ele- 
mentary. Every elementary item belongs to one of the following categories: 
numeric, alphabetic, alphanumeric, numeric edited, alphanumeric edited, 
floating point edited. Numeric literals belong to the category numeric, and 
nonnumeric literals belong to the category alphanumeric. 

The following elementary MOVES are illegal: 

Source Item Category Receiving Item Category 



Numeric Edited 
Alphanumeric Edited 
Floating Point Edited 
Alphabetic 

Numeric 
Numeric Edited 
Floating Point Edited 



( Numeric 

\ Numeric Edited 



— ^- Alphabetic 



Numeric (non-integer) 



_ ) Alphanumeric 

^ ) Alphanumeric Edited 
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All other elementary MOVES are legal, and are performed according to the 
following rules: 

MOVE to Alphanumeric Edited, Alphanumeric, Alphabetic: 

Justification and any necessary space-filling takes place as defined imder 
the JUSTIFIED clause. If the size of the sending item is greater than the 
size of the receiving item, the excess characters are truncated after the 
receiving item is filled. 



Examples : 

Picture of 
Source Data Receiving Item 




A 


B 


C 


D 


A (4) or X(4) 










A 


B 


C 


D 


A (5) or X(5) 












A 


B 


c 


1 


2 


3 


X(8) 












1 


2 


3 


X(8) 




"ABCD" X(4) 


ALL "ABCD" X(7) 


"ABC-123" X(7) 


"123" X(2) 


ALL "123" X(7) 




A] 


LL 


12 


3 






X(7) 



Receiving Item 








A 


B 


C 


D 










A 


B 


C 


D 


A 








A 


B 


c 


1 


2 


3 


A 


A 




1 


2 


3 


^ 


A 


A 


A 


A 






A 


B 


C 


D 










A 


B 


C 


D 


A 


B 


C 




A 


B 


C 


- 


1 


2 


3 










1 


2 










1 


2 


3 


1 


2 


3 


1 





illegal (no quotes) 



MOVE to Numeric, Numeric Edited, Floating Point Edited: 

Alignment by decimal point and any necessary zero-filling is done auto- 
matically except where zeros are replaced because of editing requirements. 
If the sending item has more digits to the left or right of the decimal point 
than the receiving item can contain, excess digits are truncated. If the 
sending item contains any non-numeric characters, the results at object 
time are unpredictable. 
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Examples : 



Source Data 



1 2 


3 


i 




1 


2 


3 


^ 




1 


2 


3 


1 


1 


2 


3 




1 





-1.23 (literal) 



1 


2 


3 


i 


. 


1 


2 3 



+1.23 
+1.23 
123 
ZEROS 



3 4 



3 4 









1 


2 



Picture of 
Receiving Item 

99V9 

999V99 

9999 

9999 

S9V99 

9V9 

9V9 

S9V99 

S9V9 

9(5) 

S99999 

$**9.99 

999.9 

$**9.99 



Receivmg Item 


1 2 


3 






. 




1 


2 


3 






1 


2 


3 


1 





1 


2 




' 


1 2 


3- 




1 2 

2 3 






1 2 


+ 
3 




1 

+ 
1 2 

1 









1 


2 3 















$ 1 


2 


3.45 




1 2 


3 


. 4 




$ * 


* 


. 1 |2 



Any necessary conversion of data from one form of Internal representation 
to another takes place during the move along with any specified editing in 
the receiving item. 

A move that is not an elementary move is treated exactly as if it were an 
elementary alphaniomeric to alphanumeric move. An index data item cannot 
appear as an operand in a MOVE statement. 

If the CORRESPONDING option is used, selected items within identifier-1 are 
moved to selected items within identifier-2 , according to the rules for the 
CORRESPONDING option. Results are the same as if the user had referred 
to each pair of correspondii^ identifiers in separate MOVE statements. Only 
one identifier may appear to the right of the word TO. Both identltier-l and 
identifier-2 must be group items . 
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Example : 

If a record named MASTER contains information to be written as part of a 
record called MAST-REP, the MOVE CORRESPONDING statement can 
specify movement of all relevant data. 



01 MASTER 

03 ITEM-NUMBER 
ITEM-NAME 
05 GENERAL-CLASS 
05 DETAIL-NAME 
ON-HAND-QUAN 
REORDER-LEVEL 
RETAIL-PRICE 
WHOLESALE-LEVEL 
WHOLESALE-PRICE 
YEAR-TO-DATE-SALES 
YEAR-TO-DATE-PROFIT 
LAST-YEAR-SALES 
LAST -YEAR-PROFIT 



03 



03 
03 
03 
03 
03 
03 
03 
03 
03 



01 MAST-REP 

03 ITEM-NUMBER 
ITEM-NAME 
05 GENERAL-CLASS 
05 DETAIL-NAME 
YEAR-TO-DATE -SALES 
LAST -YEAR-SALES 
YEAR-TO-DATE -PROFIT 
PROJECTED-PROFIT 
LAST -YEAR-PROFIT 
SALES-COMP 
PROFIT-COMP 



03 



03 
03 
03 
03 
03 
03 
03 



MOVE CORRESPONDING MASTER TO MAST-REP results in movement of 
items: ITEM-NUMBER, ITEM-NAME (GENERAL-CLASS and DETAIL- 
NAME), YEAR-TO-DATE -SALES, LAST -YEAR-SALES, YEAR-TO-DATE- 
PROFIT, and LAST -YEAR-PROFIT. 
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4.7.14 

MULTIPLY 



The MULTIPLY statement causes numeric data item s to be multiplied and 
sets the value of a data item or items equal to the results. 



Format 1: 



MULTIPLY 



j identifier-1 
1 literal-! 



BY identifier-m [ ROUNDED] , [identifier-n 



[ROUNDED]]. . . [; ON SIZE ERROR imperative-statement] 



Format 2: 



^^^j identifier-1 J j identifier -2 
J literal -1 I Jliteral-2 



GIVTNG identifier-m f ROUNDED ] , [identifier-n [ ROUNDED ]] . . . 
[; ON SIZE ERROR imperative -statement] 

la format 1, each identifier must refer to a numeric elementary item. In 
format 2 , an identifier to the right of the word GIVING may refer to a data 
item that contains editing symbols. Each literal must be a numeric literal. 
The maximum size of each operand is 18 decimal digits. The initial value of 
identifier-1 or literal -1 is multiplied by the initial values of identifier-m, 
identifier-n, . . . The resulting products replace the values of identifier-m, 
identtfier-n, . . . respectively. 

In format 2, the initial value of identifier-1 or literal-l is multiplied by 
identifier-2 or literal-2 and the result is stored in identifier-m, 
identifier-n, . . . respectively. 



Examples : 



MULTIPLY 1. 05 BY MONTHLY-EARNINGS, OVERTIME -RATE, 
SOC-SEC, FEDERAL-TAX. 

MULTIPLY ALPHA BY BETA GIVING CHI ROUNDED DELTA 
ROUNDED ON SIZE ERROR PERFORM ERROR-ROUTINE. 
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4.7.15 

NOTE The NOTE sentence allows the user to write commentary which will be 

produced on the listing, but not compiled. 

NOTE character-string. 

Any combination of the characters from the allowable character set may be 
included in the character string. 

If a NOTE sentence is the first in a paragraph, the entire paragraph is con- 
sidered to be part of the character string. Format rules for paragraph 
structure must be observed. 

If a NOTE sentence is not the first sentence of a paragraph, the commentary 
ends with the first instance of a period followed by a space. 



Examples: 



CCIO. PERFOKM SUMMARIZE. 

NOTE THIS PROCEDURE WILL SUMMARIZE THE FINAL 
RESULTS. 

NOTE-PARAG. NOTE SINCE THE FIRST WORD IN THE 
PARAGRAPH IS A NOTE, NO MATTER WHAT THE FOLLOWING 
SENTENCES SAY, THEY ARE ACCEPTED AS COMMENTARY ONLY, 
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4.7.16 

OPEN 



The OPEN statement initiates the processing of both input and output files. 

It performs checking and/or writing of labels and other input-output operations. 



INPUT file-name-1 



\ REVERSED 



\ REVERSED | 

I WITH NO REWIND ( 



I 



, file -name -2 



) WITH NO REWIND [ 
OPEN ( OUTPUT file-name-1 [WITH NO REWIND ] 
[, file-name-2 [WITH NO REWIND] ] . . . 
I-O file-name-1 [, file-name-2] ... 
INPUT-OUTPUT file-name-1 [, file-name-2].. 



At least one of the options INPUT, OUTPUT, 1-0 must be specified; however, 
there should be no more than one instance of each option per statement. These 
options may appear in any order. The I-O and INPUT-OUTPUT options per- 
tain only to mass storage files. 

All files except sort files must be opened with an OPEN statement prior to 
execution of the first SEEK, READ, WRITE or CLOSE statement for that file. 
Sort files must not be named in an OPEN statement. OPEN does not obtain 
or release the first data record; a READ must be executed to obtain, or a 
WRITE to release the first data record. A second OPEN statement for a file 
cannot be executed prior to the execution of a CLOSE statement for that file. 

The user's beginning label subroutine is executed for checking or writing the 
first label if one is specified by a USE statement. 

The REVERSED and NO REWIND options can be used only with sequential 
single-reel files; they do not apply to mass storage processing. If the external 
device permits rewinding, and if REVERSED or NO REWIND are not specified, 
execution of the OPEN statement positions the file at its beginning. 

If either REVERSED or NO REWIND is specified, the file is not repositioned. 
REVERSED assumes the file is positioned at its end; NO REWIND assumes 
the file is positioned at its beginning. 
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When REVERSED is specified, subsequent READ statements make the data 
records of the file available in reverse order; that is, starting with the last 
record. Caution: The format of files to be read in reverse must be either 
unblocked logical records or blocked fixed-length logical records. 

If OPTIONAL is specified for an input fUe in the File-Control paragraph of the 
Environment Division, the input -output control system checks for the presence 
or absence of this file. If the file is not present, the first READ statement 
for this file causes the imperative statement in the AT END phrase to be 
executed. 

The I-O option permits the opening of a mass storage file for both input and 
output operations. Since this option implies the existence of the file, it 
cannot be used if the mass storage file is being created. 

When the access mode is sequential, the OPEN statement supplies the initial 
address of the first record to be accessed in mass storage files. 

When an attempt is made to open a mass storage file which the MASTER 
operating system indicates does not exist, the input-output system will 
attempt to allocate the file internally only if a FILE-LIMITS clause was 
specified for the fUe. 

The following label information must be included in the FD entry for a file 
which is to be internally allocated: 

^ ID I jdata-name-1 



1 IDENTIFICATION t | Iiteral-1 



\ OWNER / idata-name-2 



) OWNER-ID I /literal -2 

EDITION-NUMBER IS jf.f ^"^"^^'S 
j literal-3 

!data-name-4 
literal -4 



ACCESS-PRIVACY IS 



MODIFICATION-PRIVACY IS if.f ^ name-5 
|hteral-5 

The number of blocks to be allocated initially must be given as integer-1 of 
the FILE-LIMITS clause. 
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The size of each mass storage block is determined from the BLOCK CONTAINS 
clause and/or RECORD CONTAINS clause. If the clause BLOCK CONTAINS 
iateger-l TO integer-2 CHARACTERS is given, a block size of lnteger-2 
characters is allocated. 

H the clause BLOCK CONTAINS integer-1 TO integer-2 RECORDS and 
RECORD CONTAINS integer-3 TO integer-4 CHARACTERS are given, a 
block size equal to integer-2 times integer-4 characters is allocated. 

In addition to the basic block size, eight characters are added to allow for a 
header used raternally by the input-output control system. This header is 
never accessible to the user program . 

Files assigned to TTY or CRT are assumed by MASTER to be I-O files when 
the device is opened. 

Examples: 

1. OPEN INPUT CARD-FILE . 

2. OPEN OUTPUT PRINT-FILEA WITH NO REWIND PRINT -FILEB. 

3. OPEN INPUT-OUTPUT MASTER-FILE. 
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4.7.17 

PERFORM 



The PERFORM statement is used to depart from the normal execution sequence 
to execute one or more procedures either a specified number of times or until 
a specified condition is satisfied and to return control to the normal sequence. 

Format 1 (simple): 

PERFORM procedure-name-1 [ THRU procedure-name-2] 
Format 2 (TIMES) : 

PERFORM procedure-name-l [ THRU procedure-name-2] 
Udentifier-11 ^^^^ 



) integer -1 

Format 3 (UNTIL) : 

PERFORM procedure-name-1 [ THRU procedure-name-2] 
UNTIL condition-1 



Format 4 (VARYING): 

PERFORM procedure-name-1 [ THRU procedure-name-2] 

( . , , , ( index -name-2 , 
,^ , „,.„„ \ mdex-name-1 / _,„^,. 1 , . , , „ 
VARYING i . , ^... , \ FROM < literal-2 
I identifier-l ( j . , .... „ 

< ' r identifier -2 



BY l^i'^^^^ir^ A UNTIL condition-1 
hdentifier-3 I 



, , , index-name-5 

. „„„„ , mdex-name-4 / „„^, . ) , .. , ^ 
AFTER \ . , ^... , I FROM < literal-5 

identifier-4 ( J . , ^... 

identifier -5 



„,, 1 literal-6 , ,,»,_,,t ,., . 
BY \ .. ^... ^} UNTIL condition-2 
J identifier-6 ' 



1- I- J „ 1 1 literal-8 

FaFTER h'^T.''^"^! FROM hdentifier-8 

Jidentifier-7 l J . , 

( > r index-name- 



I 



BY 



Uiteral-9 
)identifier-9 



UNTIL condition 



-]] 
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Each procedure name is the name of a section or paragraph in the 
Procedure Division. 

Each identifier represents a numeric elementary item described in the Data 
Division. In format 2, the identifier represents a numeric item with no 
positions to the right of the assumed decimal point. 

A literal must be numeric. 

When the PERFORM statement is executed, control is transferred to the first 
statement of procedure-name-1. An automatic return is made to the state- 
ment following the PERFORM statement. If the THRU option is not specified, 
the return follows execution of the last statement of the paragraph or section 
referred to by procedure-name-1. If the THRU option is specified, the return 
follows execution of the last statement of the paragraph or section referred to 
by procedure-name-2. 

The only relationship necessary between procedure-name-1 and procedure- 
name-2 is that a consecutive sequence of operations is to be executed 
beginning at procedure-name-1 and ending with the last statement in 
procedure-name-2. GO TO and PERFORM statements may occur between 
these limits. If there are two or more direct paths to the return point, then 
procedure-name-2 may name a paragraph containing an EXIT statement, to 
which all these paths must lead. 

If control passes to these procedures by means other than a PERFORM state- 
ment, it passes through the last statement of the procedure to the following 
statement as if no PERFORM statement mentioned these procedures. 

A procedure referenced by a PERFORM statement can include within it 
another PERFORM statement only if the procedure associated with the 
second PERFORM is entirely within or entirely without the procedure 
referenced by the first PERFORM. 

Correct Specifications 



X PERFORM a TiERU m 



X PERFORM a THRU m 



d PERFORM f THRU j 



m 



d PERFORM f THRU j 
h 
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Incorrect Specifications 



X PEKFORM a THRU m 

a 



a 



d PERFORM f THRU j 

f 

m 

J 



b PERFORM c THRU f 
c 

d 

f 



X PERFORM a THRU d 



A procedure associated with one PERFORM statement can overlap or inter- 
sect the procedure associated with another PERFORM if neither procedure 
includes the PERFORM statement associated with the other procedure. 

Correct Specification 



X PERFORM a THRU m 

a 

f 

m 

j 



d PERFORM f THRU j 
Format 1: 

A procedure referenced in the basic PERFORM statement is executed once 
and then control passes to statement following the PERFORM. For example: 

PERFORM SUMMARY. 

Format 2: 

When the TIMES option is used, the procedures are performed the number of 
times specified by the value of integer-1 or the initial value of identifier-1 . 
At the time of execution, this value must not be negative, li the value is zero, 
control passes immediately to the statement following the PERFORM. Other- 
wise, the procedures are executed the specified number of times and then 
control passes to the statement following the PERFORM. Once execution is 
begun, any change to identifier-1 has no effect on the number of times the 
procedures are executed. 
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Examples: 

1. PERFORM CALCULATION 4 TIMES. 

2. PERFORM ISSUE NO-COPIES TIMES. 

Format 3 : 

If the UNTIL option is specified, the procedures are performed until the 
specified condition is true. Control returns to the statement following the 
PERFORM statement. If the condition is true when PERFORM is first 
encountered, the procedure is not executed. 

Example: 

PERFORM REORDER UNTIL ON-ORDER + SUPPLY = AV-USE * 2 or 
SUPPLY GREATER THAN AV-USE * 2. 

Format 4: 

The VARYING option augments the value of one or more identifiers or index 
names during execution of the PERFORM statement. Every reference to an 
identifier as the object of the VARYING and FROM phrases also refers to 
index names. When index names are used, the FROM and BY clauses have 
the same effect as in a SET statement. 

When one identifier is varied, identifier-1 is set equal to the value of 
identtfier-2 or literal-2 at the start of execution of the PERFORM. The 
condition is evaluated, and if false, the sequence of procedures (procedure- 
name-1 through procedure -name -2) is executed once. Then the value of 
identifier-1 is augmented by the increment or decrement specified by 
identifier-3 , and condition-1 is evaluated again. The cycle continues until 
the condition is true; then control passes to the statement following the 
PERFORM. K the condition is true at the start of execution, control passes 
directly to the statement following PERFORM. 

Examples of a PERFORM statement with one varying identifier: 

1. PERFORM ABLE THRU BAKER VARYING ID-1 FROM ID-2 BY 
ID-3 UNTIL ID-1 = 20. 

2. PERFORM RATE-CALC VARYING QUAN FROM 50 BY 5 UNTIL 
QUAN GREATER 200. 
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The first example is illustrated in the following flow chart: 

Entrance 
(from statement previously executed) 



Set m-l = ID-2 



ID-1 = 20 



True 



To statement following 
PERFORM statement 



False 



Execute specified procedure 



Increment or decrement 
ID-1 by ID-3 



When the optional clause beginning with AFTER is included, two identifiers 
are varied. Menttfier-1 and identifier-4 are set to the values of identifier-2 
and identifier-5, respectively. (During execution, these initial values must 
be positive). At the start of execution, condition-1 is evaluated. If true, 
control is transferred to the statement following the PERFORM. If false, 
condition-2 is evaluated. If condition-2 is false, procedure-name-1 through 
procedure-name-2 is executed once, after which identifier-4 is augmented by 
identifier-6 and condition-2 is evaluated again. This cycle of execution and 
augmentation continues until condition-2 is true. When it is true, identifier-4 
is set to its initial value (identifier-5), identifier-1 is augmented by 
identif ier-3 , and condition-1 is re-evaluated. The PERFORM statement is 
completed if condition-1 is true; if not, the cycles continue until condition-1 
is true. The identifiers following BY (identifier-3 and identifier-6) must not 
be zero. 

Example of a PERFORM varyii^ two identifiers : 

PERFORM CALCULATION VARYING CNT FROM 1 BY 1 UNTIL 
CNT = 100 AFTER AMNT FROM ORIG BY DIFF UNTIL AMNT 
GREATER LIMT, 
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Entrance 
(from statement previously executed) 



Set CNT = 1 

Set AMNT = ORIG 



CNT = 100 



I 



True 



To statement following 
PERFORM statement 



False 



AMNT > 250 
I False 



True 



Execute CALCULATION 



T 



Augment AMNT BY DIFF 



Set AMNT = ORIG 



Augment CNT by 1 



At termination of the PERFORM statement, AMNT contains its initial value. 
CNT has a value that exceeds the last used setting by an increment or decre- 
ment, unless condition-1 was true when the PERFORM statement was entered, 
in which case CNT and AMNT contain their initial values. 

For three identifiers, the mechanism is the same as for two identifiers except 
that identifier-7 goes through a complete cycle each time that identifier-4 is 
augmented by identifier-6 or literal-6, which in turn goes through a complete 
cycle each time identifier-1 is varied. 

Example of PERFORM varying three identifiers: 

PERFORM PROC-1 THRU PROC-2 VARYING ID-1 FROM ID-2 BY ID-3 
UNTIL ID-1 EQUAL TO TERM-1 AFTER ID-4 FROM ID-5 BY ID-6 
UNTIL ID-4 GREATER LIMIT -2 AFTER ID-7 FROM ID-8 BY 1 UNTIL 
ID-7 = 5. 
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Upon completion of the PERFORM, ID-4 and ID-7 contain their initial values, 
ID-1 has a value exceeding its last used setting by one increment or decrement. 
If m-l equals TERM-1 (condition-1 is true) when the PERFORM statement is 
entered, ID-1, ID-4, and ID-7 all contain their initial values. 
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4.7.18 

READ The READ statement makes the next logical record available from an input 

file and allows performance of a specified imperative statement when end of 
file is detected. 

Format 1: (for sequential files from any device) 
READ file-name RECORD [ INTO identifier-1] 
; AT END imperative-statement 
Format 2 : (for random access mass storage files only) 
READ file-name RECORD [INTO identifier-1] 
; INVALID KEY imperative-statement 

An OPEN statement must be executed for a file prior to execution of the first 
READ statement for that file. 

If INTO is specified, the data is read into both the record area and the area 
specified by identifier-1 . 

Format 1: 

If the logical end of the file is reached during execution of a READ, and an 
attempt is made to read that file, the AT END imperative statement is exe- 
cuted. Files assigned to TTY and CRT have no end-of-file condition, so the 
AT END phrase is never executed. Following execution of the AT END 
imperative statement, a READ statement for that file must not be given unless 
a prior CLOSE and OPEN for the file have been executed. 

When a file consists of more than one type of logical record, these records 
automatically share the same storage area; this is equivalent to an implicit 
redefinition of the area. Only the information present in the current record 
is accessible. 

If a file described with the OPTIONAL clause is not present, the imperative 
statement in the AT END phrase is executed on the first READ and standard 
end-of-file procedures are not performed. 

If the end of a tape reel is recognized during execution of a READ statement on 
a multi-reel/unit file, the followii^ operations are carried out: 



60229400 4-51 



• standard ending reel label procedure and user's ending reel label 
procedure, if specified, by the USE statement. The order of 
execution is specified by the USE statement. 

• Tape swap. 

• Standard beginning reel label procedure and user's beginning reel 
label procedure, If specified. The order of execution is specified 
by the USE statement. 

• First data record on the new reel is made available. 

Format 2 : 

The READ statement implicitly performs the functions of a SEEK statement 
for a specific mass storage file, unless a SEEK statement for the file is 
executed prior to the READ. Records in the file are read in accordance with 
the contents of the ACTUAL KEY data item. The user is responsible for 
setting the contents of this data item prior to execution of the READ statement 
(ACTUAL KEY, chapter 2). If an attempt is made to read a mass storage 
record and contents of the associated ACTUAL KEY data item are outside the 
allocated file area, the INVALID KEY phrase is executed. The allocated area 
of a file is the number of blocks assigned to it by the ALLOCATE request of 
the MASTER *DEF function (section 7.3.3). 

Regardless of the method used to overlap access time with processing time, 
the concept of the READ statement is unchanged in that a record is available 
prior to the execution of any statement following the READ statement. 

Examples : 

READ MASTER-FILE AT END MOVE 1 TO MASTER-ENDED-IND 
GO TO END-MASTER. 

READ DETAIL-FILE AT END GO TO END-DETAIL. 

READ INVENT-FILE AT END ADD 1 TO INVENT-IND GO TO END- 
INVENT. 

READ DATA-FILE INTO ITEM-1 INVALID KEY DISPLAY "END DATA". 
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4.7.19 

RELEASE 



The RELEASE statement transfers records to the initial phase of a SORT 
operation. It is equivalent to a WRITE statement applied to a sort file. 



RELEASE record-name [ FROM identifier] 

A RELEASE statement is used only within the range of an input procedure 
associated with a SORT statement for a sort file the description of which 
includes a DATA RECORDS clause containing record name. 

RELEASE causes the record named by record name to be released to the 
initial phase of a sort. RELEASE must be part of an input procedure in the 
SORT statement. When control passes from the input procedure, the sort file 
consists of aU records placed in it by execution of RELEASE statements. 
Following execution of the RELEASE statement, the contents of the record 
area named by record name are no longer available. 



If the FROM option is included, the contents of the identifier data area are 
moved to record name before being released to the sort file. The move is 
made in accordance with the rules governing a simple MOVE without the 
CORRESPONDING option. The information in the data area associated with 
identifier remains available even though the information in the record name 
area is no longer available. 
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4.7.20 

RETURN The RETURN statement obtains sorted records from the final phase of a 

sort operation. It is equivalent to a READ statement applied to a sorted file. 

RETURN file-name RECORD [ INTO identifier] 
; AT END imperative-statement. 

A RETURN statement is used only within the range of an output procedure 
associated with a SORT statement for the specified file name. File-name is 
a sort file with a Sort File Description entry in the Data Division. 

The INTO option is used only when the input file contains just one type of 
record. The identifier is the name of a working storage area or output 
record area. When INTO is specified, the data is available in both the 
input record area and the data area associated with identifier. 

When a file consists of more than one type of record, records share the 
storage area automatically. This is equivalent to implicit redefinition of 
the area, and only the information that is present in the current record is 
accessible. 

Execution of RETURN causes the next record, in the order specified by the 
keys listed in the SORT statement, to be made available for processing in 
the record area associated with the sort file. Moving is performed according 
to the rules specified for the MOVE statement without the CORRESPONDING 
option. After execution of the imperative statement in the AT END phrase, 
no more RETURN statements can be executed within the current output 
procedure . 



4-54 60229400 



4.7.21 

SEARCH The SEARCH statement is used to search a table for an element that satisfies 

the specified condition and to adjust the associated index name or index data 
item to point to that table element. (See Table Handling, section 4. 5, also 
OCCURS, section 3.5.6, and SET, section 4. 7. 2.3.) 

Format 1 (linear search) : 

SEARCH identifier-1 VARYING {^entifie™2~^} 

[; AT END imperative-statement-1] 

, . , c imperative-statement-2 ) 
; WHIN condition-1 { ^EXT SENTENCE / 

r „,„„^. ,.,. „ ( imperative-statement-3 n 

[ ' ^^^ condition-2 \ ^/^^ SENTENCE }J ••• 

J'\ SEARCH ALL identifier-1 [; AT END imperative-statement-1] 

^V. )i*^ .)\-' / ,„„^,^ ,-i. , C imperative-statement-2 ) 
^,^y/' ^gg^ condition-1 \ ^/^^ SENTENCE } 

Identifier-1 cannot be subscripted or indexed. Its description must contaia an 
OCCURS clause with the INDEXED BY option. In format 2, identifier-1 must 
also contain the KEY IS option la its OCCURS clause. When format 1 is used, 
condition-1, condition-2, etc, are any conditions defined in section 4.3. In 
format 2, condition-1 is limited to a relation condition using the relational 
operator EQUAL TO (=) , a condition-name condition, or a compound condition 
formed by joining the first two conditions with an AND. 

If index-name-1 is specified in the VARYING option, it must appear in the 
INDEXED BY option of an OCCURS clause describing either the table associated 
with identifier-1 or another table. If index-name-1 is in the INDEXED BY 
option of another table, the first (or only) index-name given in the INDEXED 
BY option for identifier-1 is used and index -name-1 is simultaneously incre- 
mented by the element character offset of the other table. 

If identifier-2 is specified in the VARYING option, it must be either an index 
data item described with a USAGE IS INDEX clause or an elementary numeric 
item with no positions to the right of the assumed decimal point. 
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Format 1: 

A simple SEARCH statement defines a linear search (a serial type of search 
operation) . The search starts by checking the character address bias of the 
first (or only) index name listed in the INDEXED BY option for this table. 
The character address bias is the value which, when added to the base address 
of a table, gives the character address of a particular element in the table. 
If this value is greater initially than the highest permissible location value for 
identifier-1 , the search terminates. 

If the AT END clause is specified, the imperative statement associated with 
AT END is executed; otherwise, control passes to the next sentence. If the 
character address bias is not greater than the highest permissible location 
value for identifier-!, the conditions specified in the SEARCH statement are 
evaluated in the order they are written. 

If no condition is satisfied, the index name is incremented by the element 
character offset to reference the next table element. The element character 
offset is the number of character positions in a table element. This process 
is repeated until one of the conditions is satisfied or the character address 
bias of the index name exceeds the table limit by one or more entries. 

If a condition is satisfied, the imperative statement associated with the 
condition is executed. The index name remains set at the character address 
bias of the entry which satisfied the condition. 

If the table limit is exceeded before a condition is satisfied, the AT END 
imperative statement is executed; otherwise, control passes to the next 
sentence. 

If the SEARCH statement references an identifier-1 in a group or hierarchy 
of groups described with an OCCURS clause, each group must have an 
associated index name. Index name settings are used throughout the SEARCH 
to refer to identi£ier-l or items within it. Only the index name associated 
with identlfier-1 is incremented by the SEARCH; the items identlfier-2 or 
index-name-1 are also incremented if they are specified in the VARYING option. 

The VARYING option permits the location of entries in an associated table 
simultaneously with location of entries in the primary table (identified by 
identifier-1). If index-name-1 appears in the INDEXED BY clause describing 
identifier-1, that index name is used for the search, otherwise the first (or 
only) index name given in the INDEXED BY clause of identtfier-1 is used. 
However, if index-name-1 appears in the INDEXED BY clause of another table, 
index-name-1 is incremented by the character address bias of the other table. 



4-56 60229400 




The starting point of a linear search may be established by using the SET 
statement to preset values of the index names associated with the table. 
SET need not be used with all SEARCH statements since the starttag point of 
a liaear search depends on the current value of the index name associated 
with the table or the iadex name specified in the VARYING option of the 
SEARCH statement. Thus, one SET. . . SEARCH combination can establish 
a position within the table and subsequent SEARCH statements will begin 
with the last setting of the table's index name. The SET statement does not 
apply to a bisecting search since the initial setting of the index name is 
ignored in that type of search. 

Format 2: 

The SEARCH ALL statement provides a bisecting nonserial type of search 
operation. The initial setting of the index name for identifier-1 is ignored 
and the index name setting is varied as the bisecting search takes place. 
The setting value will not exceed the location value of the last element in the 
table, nor be less than the location value of the first element in the table. 

If condition-1 is satisfied, the index points to the table entry that satisfied the 
condition and the associated imperative statement is executed. If this im- 
perative statement does not terminate with a GO TO, control passes to the 
next sentence. 

If eondition-1 is not satisfied for any setting of the index within the range per- 
mitted for the table, the imperative statement associated with the AT END 
option is executed. K no AT END is specified, control passes to the next 
sentence. When condition-1 cannot be satisfied, the final setting of the index 
is unpredictable. 

Any or all data names in the KEY clause of identifier-1 may appear as subjects 
or objects of a test, or they may be conditional variables with which the tested 
condition name is associated. All preceding data names in the KEY clause 
hierarchy must also be tested within condition-1. No other tests may appear 
in condition-1. 

Examples: 

1 . The following example shows a nonserial search of a one-dimensional 
table: 

DATA DIVISION. 



01 TABLE -1. 

03 m-l PIC X(4) OCCURS 250 TIMES INDEXED BY INDX-1 
ASCENDING KEY IS ID-1. 

PROCEDURE DIVISION. 
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SEARCH ALL ID-1 AT END GO TO END-SEARCH WHEN ID-1 
(INDX-1) = "AlOO" GO TO EMPL-A. 

The bisecting search proceeds until an ID-1 is found with a value of 
"AlOO". If none is found, control passes to the procedure, 
END-SEARCH. 

The search operation is illustrated below. 



Start 



Set low limit to 
beginning of table 



Set high limit to 
end of table 



Set INDX-1 to midpoint 
between low limit and high limit 



Put INDX-1 
into high limit 



No 




Yes 



END- 
SEARCH 



Yes 



EMPL-A 



Yes 



Put INDX-1 
into low limit 
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2 . The following example and flow chart illustrate a linear search with 
two WHEN conditional phrases : 

DATA DIVISION. 

01 TABLE -1. 

03 ID-1 PIC X(^© OCCURS 150 TIMES INDEXED BY INDX-1. 
01 TABLE -2. ' 

03 ID-2 PIC X(12) OCCURS 200 TIMES INDEXED BY INDX-2. 
PROCEDURE DIVISION. 

SEARCH ID-1 VARYIN G INDX-2 A T END GO TO NOT -FOUND 
WHEN ID-1 (INDX-T) = "A 1234567890" GO TO A-FILE 
WHEN ID-2 (INDX-2) '= "A XXXXXXXXXX" GO TO B-FILE. 

INDX-1 and lNDX-2 are each incremented until one or the other of the 
two conditions is satisfied or until the character address bias of 
INDX-1 exceeds the table limit of TABLE-1. If neither condition is 
satisfied, control passes to the procedure NOT -FOUND. 
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INDX-1 and INDX-2 are each incremented until one or the other of the two conditions is 
satisfied or until the character address bias of INDX-1 exceeds the table limit of TABLE-1. 
If neither condition is satisfied, control passes to the procedure NOT-FOUND. 



Start 




yes 



GO TO NOT-FOUND 



yes 



GO TO A-FILE 



yes 



GO TO B-FILE 



no 



increment INDX-1 
and 
INDX-2 by 12 characters 
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4.7.22 

SEEK The SEEK statement initiates access to a mass storage data record for sub- 

sequent reading or writing. 

SEEK file-name RECORD 

A SEEK statement pertains only to mass storage files in the random access 
mode and, when specified, is executed before each READ and WRITE statement. 

SEEK finds the location of the record to be accessed from the contents of the 
ACTUAL KEY identifier. The user is responsible for setting the contents of 
this identifier prior to execution of the SEEK statement (see ACTUAL KEY, 
section 2.3.1). Validity of the contents of the ACTUAL KEY identifier for the 
particular mass storage file is determined at the time of execution. If the 
key is invalid, the imperative statement in the IN\'^ALID KEY clause of the 
next READ or WRITE statement for the associated file is executed. 

Two SEEK statements for the same mass storage file may logically follow each 
other. Any validity check associated with the first SEEK statement is negated 
by execution of a second SEEK statement. 

CAUTION: The intent of the SEEK statement is to provide an overlap 
of actual processing while the read/write heads on a mass storage 
device are being positioned to the next data block that will be refer- 
enced by a subsequent READ or WRITE request. The advantage 
gained in the SEEK statement may be lost if other programs within 
the MASTER multiprogramming environment are accessing the 
same mass storage device. Therefore, the SEEK statement should 
be used only on random files that do not share mass storage devices 
with other files. 
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4.7.23 

SET The SET statement sets values for index names associated with elements in 

tables so that these table elements can be referenced by indexing. 
Format 1: 



me-1 ^ fj, 
^-1 / l\' 



/index -name-1 )^ V ( , index-name-2 
( identifier -1 / ) . identifier-2 



r index -name-3 
TO ) identifier-3 
( literal-1 



Format 2: 



oiTT ■ ^ .1 r ■ ^ K^ /UP BY ) /identifier -4) 

SET mdex-name-4 [, mdex-name-5] . . . { ^^^^Y } i literal-2 / 

The identifiers are index data items or numeric elementary items described 
without any positions to the right of the assumed decimal point. However, 
identifier-4 in format 2 may not be an index data item. A literal must be a 
positive integer. The index names must be defined in the INDEXED BY option 
of the OCCURS clause for a given table. 

When SET is used to preset the contents of any index names in a table, all the 
index names which are to be set must be specified in the SET statement. No 
implicit setting is performed. 

Format 1 : 

If index-name-1 is specified, it is set to the character address bias which 
corresponds to the occurrence number referred to by or contained in index- 
name-3, identifier-3 or literal-1. If identifier-3 is an index data item, or if 
index -name-3 is related to the same table as index-name-1, no conversion is 
made from occurrence number to character address bias. 

If identifier-l is specified, the particular action depends on whether it is an 
index data item or a data name containing a numeric elementary item . If it 
is an index data item, it is set equal to the contents of index-name-3 or 
identifier-3 which is also an index data item. Literal-1 cannot be used when 
identifier-l is an index data item. 

If identifier-l is a data name, it is set to the occurrence number that corre- 
sponds to the character address bias in index-name-3. Neither identifier-3 
nor Iiteral-1 can be used in this case. 

In the above discussion, all references to index-name-1 and identifier-l 
apply to index-name-2 and identifier-2, respectively. 
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Format 2: 

The contents of mdex-name-4 (and index-name-5, if specified) are incremented 
(UP BY) or decremented (DOWN BY) a value that corresponds to the number of 
occurrences represented by the value of literal-2 or identifier-4. Identifier-4 
must be a data name identifying a numeric elementary item with no positions 
to the right of the assumed decimal point. 

Example : 

DATA DIVISION. 

77 B-1 PIC 99 USAGE IS INDEX. 
77 D-1 PIC 9 USAGE IS INDEX. 
01 ABLE. 

02 BAKER OCCURS 20 TIMES INDEXED BY INDX-B. 
03 CHARLIE PIC 9(3). 
03 DOG PIC X(3) OCCURS 5 TIMES INDEXED BY INDX-D. 



PROCEDURE DIVISION. 
M-1. SET B-1 TO INDX-B. 
M-2. SET D-1 TO INDX-D. 

IF CHARLIE (B-1) LESS THAN 100, 

MOVE DOG (B-1, D-1) TO TABLE-D. 
IF INDX-B GREATER THAN 20; GO TO OUT. 
IF INDX-D LESS THAN 6; SET INDX-D UP BY 1; GO TO M-2; 

ELSE SET INDX-D DOWN BY 5, GO TO M-1. 
OUT. 
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4.7.24 

SORT The SORT statement creates a sort file by executing input procedures or by 

transferrii^ records from another file. Records in the sort file are sorted on 
a set of specified keys. In the final phase of the sort operation, each record 
from the sort file is made available, in sorted order, to some output pro- 
cedures or to an output file. 

S0BTme-„a„e-10NJ Pggggg° JKEY ).d».ffier-lj ... 

INPUT PROCEDURE IS section-name -1 [ THRU section-name-2] 
USING file-name-2 

OUTPUT PROCEDURE IS section-name-3 fTHRU section-name-4] 
GIVING file-name-3 



A program may contain more than one SORT statement in the Procedure 
Division. No SORT statement may appear in the Declaratives Section or in 
the input and output procedures associated with a SORT statement. 

File-name-1 is a sort file described in an SD entry in the Data Division. 
Each identifier must represent data items described in records associated 
with file-name-1. Section-name-1 is the name of an input procedure; section- 
name-3 names an output procedure. File-name-2 and file-name-3 are 
described in FD entries in the Data Division. They are not sort files, and 
must not be described in an SD entry. The FILE-CONTROL paragraph of 
the Environment Division must specify only the SELECT and ASSIGN clauses 
for a sort file (file-name-1). FILE-CONTROL for file-name-2 and file- 
nanie-3 may include MULTIPLE and RESERVE as well as SELECT and 
ASSIGN. 

ASCENDING specifies a sorting sequence from the lowest to the highest value 
of KEY; DESCENDING specifies a highest to lowest sequence. The order of 
values is in accordance with the ordered character set given in appendix D. 

The record description of every record listed in the DATA RECORDS clause 
of the sort fUe must contain the KEY items identifier-l , identifier-2 , etc. 
When KEY items appear in more than one record, data descriptions must be 
equivalent and starting positions must be the same character positions relative 
to the beginning of each record. They may not contain or be subordinate to 
entries that contain an OCCURS clause. The KEY identifiers are listed from 
left to right in the SORT statement in order of decreasing significance without 
regard to how they are divided into KEY clauses. 
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INPUT PROCEDURE consists of one or more sections written consecutively 
which must not be a part of any output procedure. An input procedure can 
include any procedures needed to select, create, or modify records, and at 
least one RELEASE statement to transfer a record to the sort file. Control 
may be passed to an input procedure only when a related SORT statement is 
being executed. If INPUT PROCEDURE is specified, control is passed to the 
input procedure before file-name-1 is sequenced by the SORT statement. 
The compiler inserts a return mechanism at the end of the last section; and 
when the last statement in the input procedure has been executed, the records 
that have been released to the sort file are sorted. 

OUTPUT PROCEDURE consists of one or more sections written consecutively 
which must not be a part of any input procedure. An output procedure may 
consist of any procedures required to select, modify, or copy the records 
that are returned one at a time in sorted order from the sort file. At least 
one RETURN statement must be included in an output procedure to make the 
sorted records available for processing. Control must not be passed to an 
output procedure unless a related SORT statement is being executed. Control 
passes to the output procedure after file-name-1 has been sequenced by the 
SORT statement. The compiler inserts a return mechanism at the end of the 
last section. When the last statement has been executed, this mechanism 
terminates the sort and transfers control to the statement following the SORT 
statement. 

The procedural statements in an INPUT PROCEDURE or an OUTPUT 
PROCEDURE are subject to the following restrictions: 

• The procedure must not contain any SORT statements. 

• The procedure must not transfer control to points outside the 
procedure. 

• The remainder of the Procedure Division must not contain any 
transfers of control to points inside an input or output procedure. 

If USING is specified, the SORT statement automatically performs the functions 
of the OPEN, READ, USE, and CLOSE statements for file-name-2. All the 
records in file-name-2 are transferred automatically to file-name-1 for 
sorting. File-name-2 must not be open at the time of execution of the SORT 
statement. 

If GIVING is specified, all the sorted records in file-name-1 are transferred 
automatically to file-name-3. File-name-3 must not be open when the SORT 
statement is executed. Execution of the SORT statement automatically opens 
file-name-3 before the records are transferred and closes it after the last 
record in the sort file is returned. 
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Examples: 



DATA DIVISION. 
FILE SECTION. 
FD GEN-FILE 

BLOCK CONTAINS 10 RECORDS 
LABEL RECORD IS OMITTED 
DATA RECORD IS GEN-REC. 
01 GEN-REC. 

02 IDENT-A PIC 9(8). 
02 IDENT-B. 

03 ID-B PIC 99. 
02 IDENT-C PIC X(20) . 
SD SORT-FILE . 

DATA RECORD IS SORT-REC. 
01 SORT-REC. 

02 IDENT-1 PIC 9(8). 
02 IDENT-2. 

03 ID-2A PIC 99. 
02 IDENT-3 PIC X(20) . 



PROCEDURE DIVISION. 

A-SORT SECTION. 

ST-1. SORT SORT-FILE ON ASCENDING KEY IDENT-1 

ON DESCENDING KEY ID-2A, BDENT-S 
INPUT PROCEDURE IS INP-1 
OUTPUT PROCEDURE IS OUT-1. 

GO TO REST-OF-PROGRAM. 
INP-1 SECTION. 

OPEN INPUT GEN-FILE. 
I-l. READ GEN-FILE AT END GO TO 1-2. 

MOVE GEN-REC TO SORT-REC. 

RELEASE SORT-REC. 

GO TO I-l. 
1-2. CLOSE GEN-FILE, 

OUT-1 SECTION. 

OPEN OUTPUT GEN-FILE. 
O-l. RETURN SORT -FILE RECORD AT END GO TO 0-2. 

MOVE SORT-REC TO GEN-REC. 

WRITE GEN-REC. 

GO TO O-l. 
0-2. CLOSE GEN-FILE. 
REST-OF-PROGRAM SECTION. 
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2. Given two files, FILE-1 and FILE-2, with data records identical to 
GEN-REC in example 1, and a sort file identical to SORT-FILE in 
example 1, the following SORT statement can be specified; 

SORT SORT -FILE ON ASCENDING KEY IDENT-1, IDENT-3 
ON DESCENDING KEY ID-2A 
USING FILE-1 
GIVING FILE-2. 



4.7.25 

STOP The STOP statement halts the object program permanently or temporarily. 

tjr^^T, j literal } 

The literal may be numeric, non -numeric, or any figurative constant, 
except ALL. 

If the RUN option is used, the program is terminated and control is returned 
to its caller. 

If the literal option is used, the literal is displayed on the console. The 
program is temporarily suspended until the operator responds. A response 
of any combination of characters other than NO, causes the object program 
to continue with the execution of the next sequential statement. The response 
NO is reserved for the option of terminating program execution. 

If a STOP statement with the RUN option appears in an imperative sentence, 
it must appear as the only or last statement in a sequence of imperative 
statements. 
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4.7.26 

SUBTRACT The SUBTRACT statement is used to subtract oae, or the sum of two or 

more, numeric data items from one or more items equal to the results. 

Format 1: 



SUBTRACT P"^''^'^"^ }[ /lite^^-2 \ 
( identifier-1 / [_ ' ( identif ier-2 ) _ 

[ROUNDED] , identifier-n fROUNDEDI . . 
[; ON SIZE ERROR imperative-statement] 



FROM identifier-m 



All literals or identifiers preceding the word FROM are added together and 
this total is subtracted from identifier-m, identifer-n, . . . The differences 
are stored in the respective identifiers. 

Format 2: 

SUBTRACT {If ^^^J:^ \\, {^^^ \]... FROM j'f ""J:"^ } 
\ identifier-1 ; |_ ( identifier-2 ; J ( identifier-m J 

GIVING identifier-n [ROUNDED ] f, identifier-o [ ROUNDED ]] . . . 

[; ON SIZE ERROR imperative-statement] 



All literals or identifiers preceding the word FROM are added together, 
subtracted from literal -m or identifier-m, and the result stored as the new 
value of identifier-n, identifier-o 

Format 3: 

c„. ,.,... .,.,„. ( CORRESPONDING ) .. ... , „„,..„ ., ,... 

SUBTRACT < ^^„„ } identUier-i FROM identilier-2 

f GORR } 

[ ROUNDED] [; ON SIZE ERROR imperative-statement] 

Data items in identifier-1 are subtracted from and stored into corresponding 
data items in identifier-2. 

Each identifier must refer to a numeric elementary item except in format 2, 
where an identifier which appears to the right of the word GIVING may refer 
to a data item that contains editing symbols. Each literal must be a numeric 
literal. 
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The maximum size of each operand is 18 decimal digits; and the composite of 
operands, must not contain more than 18 digits. The composite of operands 
is the data item resulting from superimposing all operands aligned by decimal 
point, excluding the data items that follow the word GIVESIG. 

The compiler insures that enough places are carried to avoid loss of significant 
digits during execution. 

Examples : 

SUBTRACT SOC-SEC FEDERAL- TAX TOTAL-DEDUCTIONS FROM 
MONTHLY -GROSS GIVING MONTHLY-NET. 

SUBTRACT CORRESPONDING UPDATE -RATE -TABLE FROM 
RATE -TABLE. 

SUBTRACT DAY OF CURRENT -DATE FROM 30 GIVING DAYS-LEFT 
ON SIZE ERROR ADD 1 TO ERROR-COUNTER. 
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4.7.27 

^^^^ The TRACE statement is a source language debugging tool which enables the 

user to display literals and the contents of data names on the job standard 
output file during execution of the object program. 

TRACE [WHEN integer-1] [EVERY integer -2] [UNTIL integer-31 

|literal-l ) friiteral-B )' 
(data-name-lj L'(data-name-2/ 

Any number of TRACE statements may be inserted in the Procedure 
Division of a COBOL source program. 

Compilation of TRACE statements is controlled by the TRACE parameter on 
the UCBL control card for the program. When the T parameter is specified, 
all TRACE statements are compiled into the object program at the points of 
occurrence. 

During program execution, as each compiled TRACE request is encountered, 
each specified literal value is displayed as given. The contents of data names 
are displayed in edited form according to the edit picture assigned to each 
data name. The data name followed by a space, an equal sign and another 
space are presented preceding the value. All literals and values are displayed 
in a linear fashion across the print line. 

WHEN integer-1 indicates the first execution of the TRACE statement. Each 
time the program enters a TRACE request, a counter initially set to one is 
incremented by one and a comparison is made with the value given as integer-1. 
When the counter equals integer-1, the literals and values for the request are 
displayed for that cycle and all successive integer-2 cycles, until integer-3 
has been reached. If WHEN iateger-1 is omitted, the TRACE begins at the 
first cycle. 

EVERY integer-2 indicates the timing between each display. If this option is 
omitted, a display is generated during each cycle of the TRACE request. 

UNTIL integer-3 iadicates the maximum number of TRACE cycles to be 
processed before the request becomes inoperative. If the option is omitted, 
the TRACE request is processed until program execution is ended. 

A TRACE statement may be continued on succeeding source lines, it may 
begin on or after column 12. 
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Example: 

READ FILE -A AT END GO TO FINISH. 

TRACE WHEN 50 EVERY 10 UNTIL 5000 "FILE-A" 

REC-COUNT, REC-ID, "THE FOLLOWING" REC=SIZE. 

The result of the TRACE statement is: 

FILE-A REC-COUNT = 1,500 REC-ID = INV-MAST THE 
FOLLOWING RE C -SIZE = 150 
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4.7.28 

USE 



The USE statement introduces user-defined input -output label and error 
handling procedures. 

Format 1: 



file-name-1 [flle-name-2] 

INPUT 

USE AFTER STANDARD / OUTPUT 
ERROR PROCEDURE ON ] ^ 

mPUT-OUTPUT 



Format 2: 



USE ^MmS; STANDARD T^ BEGINNING 



AFTER I 



n BEGINNING ll f 
I j ENDING (J 



v REEL 
) FILE 

( unit 



i file-name-1 [file-name-2] 
INPUT 
OUTPUT 
I-O 
INPUT-OUTPUT 

Format 3 : 

USE BEFORE REPORTING identifier-1 r.ldentifier-2 . . .] • 



A USE statement immediately follows a section header in the Declaratives 
portion of the Procedure Division. It must be followed by a period and a 
space. The remainder of the section consists of one or more procedural 
paragraphs defining the procedures to be used. 

The USE statement itself is never executed, rather it defines the conditions 
calling for execution of the USE procedures. 

A USE procedure must not contain any reference to non-declarative proce- 
dures. Conversely, the non -declarative portion must not contain references 
to procedure names that appear in the declarative portion; except that a 
PERFORM statement may refer to a USE declarative or to the procedures 
associated with a USE declarative. 

The only I-O statements allowed within a USE procedure are ACCEPT, 
DISPLAY, and CLOSE. A file name must not be referred to explicitly or 
implicitly in more than one USE statement. No file name referred to in a 
USE procedure can represent a sort file. 
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The USE procedures in format 1 are executed by the input -output control 
system after completion of the standard input-output error routine. 

If a bad block is read, the error declarative is executed for each READ 
statement that causes retrieval of a logical record from the bad block. 
On entry to the declarative, the record requested will have been moved to 
the record area. Upon exiting the declarative, the input -output control 
system ignores the error, accepts the bad record, and resumes normal 
processing. 

If a WRITE error occurs, the declarative is executed only once for the error. 

In format 2 for an input file, the procedures are executed before and/or 
after execution of a beginning or ending input label check procedure. For an 
output file, the USE procedures are executed either before a beginning or 
ending output label is created, or after a beginning or endii^ output label is 
created but before it is written on tape. 

The following rules govern format 2 USE procedures : 

If file-name-1 , file-name-2, etc. is specified, the associated File 
Description entry for the file must not specify LABEL RECORDS ARE 
OMITTED. 

If the words BEGINNENG or ENDING are not included, the designated 
procedures are executed for both beginning and ending labels . 

If neither REEL nor FILE is included, the designated procedures are 
executed for both REEL and FILE labels. The REEL option is not 
applicable to mass storage files. 

The USE label procedures are not applicable to scratch files. The USE label 
procedure statement may be used for mass storage files even though mass 
storage file labels are maintained by MASTER and are not available to the 
user. Only the BEFORE or AFTER BEGINNING FILE or UNIT options of 
format 2 are valid. The UNIT and FILE options are synonymous. The 
input-output control system passes control to the BEFORE BEGINNING 
procedure just before the user's label identification data is moved to a 
MASTER OPEN request skeleton. The MASTER OPEN request makes the 
file available for processing, and then control passes to the AFTER BE- 
GINNING label procedure. 

USE BEFORE REPORTING (format 3) is used only in conjunction with the 
Report Writer. It is described in section 5.4.4 with the Report Writer 
statements. 
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4.7.29 

WRITE The WRITE statement releases a logical record from the output record area 

to the input -output control system which writes the record on an external 
device as part of an outpwt file. 

Format 1 : 



WRITE record-name [ FROM identifier-1] 

i -cT'-o'r^T^T^ ) ( identifier-2 LINES ) 

\ BEFORE/ _ ' integer LINES ^ 

mnemonic-name 



■ . , ( identjf ier-2 LINES ) ' 

i AFTER [ ADVANCING integer LINES > 

' ' V. mnemonic-name / 



Format 2: 

WRITE record-name fFROM identifier-1] 

; INVALID KEY imperative-statement 

Format 1 is used to process non-mass storage files. The ADVANCING option 
allows the user to specify vertical position of the printer. Format 2 is used 
to process mass storage files. INVALID KEY specifies an imperative 
statement to be executed if an attempt is made to write outside the allocated 
file area. 

An OPEN statement must be executed for a file before a WRITE statement 
for that file can be executed. 

Record name is the name of a logical record in the File Section of the Data 
Division; it must not name a sort file. After the WRITE is executed, record 
name is no longer available. 

The FROM option is used to move a record from the area in memory specified 
by identifier-1 to the output record area and simultaneously release this 
record to the input-output control system. The record is moved in accordance 
with the rules for a simple MOVE . Record name may not be the same as 
identifier-1 . 

Format 1 : 

When WRITE is specified for a multi-reel tape file, the following operations 
are performed after an end-of-reel condition is recognized: 
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standard ending reel label procedure and user's ending reel label 
procedure (if specified by a USE statement) in the order specified by 
the USE statement. 

Reel swap. 

Standard beginning reel label procedure and user's beginning reel label 
procedure (if specified by a USE statement) in the order specified by the 
USE statement. 

When records are written for a teletypewriter or 211 display unit, the user 
is responsible for determining the positioning of the data. The input-output 
control system interprets the first. character of the file's record area before 
the write operation is initiated. If the first character is the internal octal 
code 36, the following action will take place before the record is displayed 
on the device: 

Device Action 

TTY Carriage return to the lefthand margin of the page. The 

first character of the record is not printed. 

CRT Clear the screen and position the entry marker to the upper 

lefthand corner of the screen. The first character of the 
record is converted to a blank character and is displayed 
as such. 

When the first character of the record is other than internal code 36, the 
record is displayed immediately following the last character written by a 
previous WRITE request. In this case, the first character is always displayed 
as presented by the WRITE request. 

The ADVANCING option allows control of the vertical positioning of each 
record on the printed page. The ADVANCING option overrides automatic 
advancing. 

IdentiEier-2 must be the name of a numeric elementary item described without 
any positions to the right of the assumed decimal point. The mnemonic 
name is defined in the Special-Names paragraph of the Environment Division; 
it is identified with a printer carriage control character. 

• If identifier-2 is specified, the printer page is advanced the number 
of lines contained in identifier-2. 

• If integer is specified, the printer page is advanced the number of 
lines equal to the value of integer. 

• If mnemonic-name is specified, the printer page is advanced 
according to printer carriage control rules below : 
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Control Character 



Action Before Print 



Action After Print 



A 


Space 1 


Page Eject 


B 


Space 1 


Skip to Last Line 


C 


Space 1 


Skip to Level 6 


D 


Space 1 


Skip to Level 5 


E 


Space 1 


Skip to Level 4 


F 


Space 1 


Skip to Level 3 


G 


Space 1 


Skip to Level 2 


H 


Space 1 


Skip to Level 1 


1 


Page Eject \ 




2 


Skip to Last Line 1 




3 


Skip to Level 6 1 




4 


Skip to Level 5 / 




5 


Skip to Level 4 f 




6 

7 


Skip to Level 3 \ 
Skip to Level 2 / 


No Space 


8 


Skip to Level 1 I 




(zero) 


Space 2 I 




+ 


No Space 1 




- 


Space 3 1 




(blank) 


Space 1 / 




Q 


Clear Auto Page Eject 


No Print 


R 


Select Auto Page Eject 


No Print 



When a file is assigned to PRINTER or SYSTEM-OUTPUT the first character 
(carriage control character) of the record is suppressed when the record is 
printed. 

Format 2: 

When WRITE is specified for mass storage files in the sequential access mode, 
the imperative statement in the INVALID KEY clause is executed when the end 
of the last allocated segment of the file is reached; and an attempt is made to 
execute a WRITE statement for that file. If the THRU integer-4 option of the 
FILE-LIMITS clause is specified, the file will be expanded by ten percent of 
the originally allocated area and the INVALID KEY imperative statement is 
not executed. However, if an attempt to expand the file results in the maxi- 
mum limit (integer-4) being reached or all scheduled mass storage being used, 
the INVALID KEY imperative statement is executed. 

When WRITE is specified for a mass storage file in random access mode, 
records are written on the file in accordance with the contents of the ACTUAL 
KEY data item. The user is responsible for setting the contents of this data 
item prior to execution of the WRITE statement (ACTUAL KEY, chapter 2). 
The imperative statement in the ESTVALID KEY phrase is executed when the 
contents of the ACTUAL KEY data item are out of range. 
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When an INVALID KEY condition exists, no writing takes place and the 
information in the record area remains available. 

The WRITE statement performs the function of the SEEK statement unless a 
SEEK statement for the specified record is executed prior to the WRITE . 

Examples : 

WRITE MASTER-REC. 

WRITE DETAIL OF MASTER-OUT FROM DETAIL OF WORK -AREA. 

WRITE PRINT-LINE AFTER ADVANCING 2 LINES. 

WRITE HEADER-LINE BEFORE ADVANCING LINE -NO LINES. 

WRITE ERROR-REC INVALID KEY ADD 1 TO ERR-COUNT GO TO 
ERROR-PROC. 
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REPORT WRITER 



The Report Writer enables the user to specify the format of printed reports 
to be output from the COBOL program. Each report is defined in the Report 
Section of the Data Division. Once defined, the Report Writer statements in 
the Procedure Division place the report in the specified format on a user 
specified device . More than one report can be generated from a single source 
program . 

When the Report Writer is used, the Report Section must be included as the 
last section of the Data Division, and File Description entries (FD) in the 
File Section must contain the names of the reports to be output. 



5.1 

GENERAL 

DESCRIPTION A report is a pictorial presentation of data. In preparing a report, the 

format id differentiated from the content. The format must be planned in 
terms of page width and length, organization of report items on the page, 
and the hardware device on which the report is to be written. 

Two types of entries are required for each report: the report description 
entry (RD level) which describes the physical aspects of the report format 
and the report group descriprtion entry (01 level) which describes the char- 
acteristics of the items included in the report and their relation to the 
report format. 

The Report Description (ED level) specifies the overall format: characteris- 
tics of the page are outlined; limits are prescribed for the page and for 
footings, headings, and detail information. This entry also specifies data 
items that act as print control factors. Each report associated with an output 
file must be defined in an RD entry. 

Each report must contain at least one report group. A report group is a set 
of one or more data items which is always presented as a single unit regard- 
less of format. It may consist of one or more report lines. The report 
group always has an 01 level number; but it may contain lower level group 
and/or elementary items with level numbers from 2-49. Each report group 
at the 01 level must have a TYPE clause which specifies the type of the 
report group: heading, footing, or detail. A data name identifying the 
report group is optional. However, it must be specified for any report group 
referenced by GENERATE or USE statements in the Procedure Division. 
The placement of an item in relation to the report group and of the report 
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group in relation to the entire report, the format description of all items, 
and any control factors associated with the report group are defined by this 
entry. 



5.1.1 

CONTROL GROUPS/ 
CONTROL BREAKS 



Summary information can be presented within the body of a report. The 
concept of a control hierarchy makes it possible to automatically produce 
required summary information together with any heading, detail, and foot- 
ii^ information in a control group. Control items are specified in the report 
description entry in the same order as the control hierarchy . Any change in 
the contents of a control item produces a control break. Changes are recog- 
nized between executions of GENERATE statements and they set in motion 
the automatic production of control footing and heading report groups asso- 
ciated with the item. A control group is the set of control heading, control 
footing, and detail report groups associated with a given control data name. 
Within the control hierarchy, lower level heading and/or footing report 
groups are included in the higher level control group. 



5.1.2 

PAGE BREAK 



A page break occurs whenever the LINE-COUNTER is changed, by a LINE 
NUMBER clause or a NEXT GROUP clause, to a line number that is not 
currently available to the user. A line number may not be available to the 
user under the foUowii^ two conditions: 



• Relative spacing exceeds the PAGE LIMIT clause specification 

• Absolute spacing references a number that is equal to or less 
than the current line number 

If the above page break conditions are detected at object time, PAGE HEAD- 
ING and PAGE FOOTING report groups are produced if appropriate. The 
page counter associated with the fixed data name PAGE-COUNTER is incre- 
mented by one each time a page break occurs. It is incremented after the 
page footing is produced and before the page heading on the next page . 
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5.1.3 

LINE-COUNTER The fixed data name, LINE-COUNTER is generated automatically by the 

Report Writer for each report. LINE-COUNTER determines when a page 
heading and/or footing report group is to be presented and controls vertical 
spacing of information on the page. It is a numeric item, and its size is 
based on the number of lines per page specified in the PAGE LIMIT clause. 

Initially, the line counter is set to zero by the Report Writer. It is auto- 
matically tested and incremented during execution according to the PAGE 
LIMIT clause and the values specified by the LINE NUMBER and NEXT 
GROUP clauses in a report group description. The value of LINE-COUNTER 
may be incremented with relative spacir^, or it may be replaced with absolute 
spacing. If relative spacing advances the line counter beyond the limits de- 
fined in the PAGE LIMIT clause, PAGE FOOTING is presented if appropriate 
and the line counter is reset to zero (top-of-form) . No additional setting is 
made to the line counter based on the relative line specification. If absolute 
spacing causes the line counter to be less than or equal to the current line 
number, the line counter Is set to the requested absolute line number follow- 
ing the generation of PAGE-FOOTING and PAGE-HEADING groups. 

LINE-COUNTER may be referred to by Procedure Division statements; 
however, if it is changed by a Procedure Division statement, page format 
control may be unpredictable . If more than one line counter exists because 
more than one Report Description entry is specified, LINE-COUNTER must 
be qualified by a report name when it is referenced by a Procedure Division 
statement. 

The value of LINE -COUNTER during execution represents: 

• Last line number of previous report group 

• Last line number skipped by a previous NEXT GROUP specification 

• Zero, if at top of page 
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5.1.4 

PAGE-COUNTER 



PAGE-COUNTEE is a fixed data name automatically generated by the Report 
Writer as a data item to nvimber the pages within a report. One numeric 
page counter is supplied for each report. The size of the counter is specified 
by the PICTUEE clause associated with the first elementary data item that 
uses PAGE -COUNTER as a source. If PAGE-COUNTEE is given as a source 
in more than one item , each PICTURE clause must specify the identical nvtm- 
ber of numeric characters , The size must be sufficient to prevent overflow . 



PAGE-COUNTER may be referenced from the Procedure Division. If more 
than one Report Description entry exists, PAGE -COUNTER must be qualified 
by the report name when referenced. It must not be qualified when used as 
a source in the Data Division. 

The page counter is automatically preset to one by the Report Writer. If a 
starting value greater than one is desired, the contents of the page counter 
can be changed with a Procedure Division statement following the INITIATE 
statement. 

The page counter is automatically incremented by one each time a page break 
occurs. It is incremented after page footing and before a p^e heading is 
generated. 



5.2 

DATA DIVISION 

ENTRY FORMATS 



Format specifications used in the Report Writer are defined in this section. 
Each report must be named in the File Section and described in the Report 
Section of the Data Division. Statements which generate a report are speci- 
fied in the Procedure Division. 
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5.2.1 

FiLE DESCRIPTION 
ENTRY 



The File Description furnishes information concerning the physical structure, 
identification, and record names of a given file. 



FD file -name 



; BLOCK CONTAINS [integer-1 TO] integer-2 



I RE CORDS / 
(CHARACTERS ( 

; RECORD CONTAINS [iiiteger-3 TO] integer-4 CHARACTERS 

i data-name-1 



DEPENDING ON 



j RECORD-MARK 



; LABEL 



r 

I : VALUE OF 



i RECORD IS 
RECORDS ARE 



( STANDARD "> 



^ OMITTED 
' data- 



J 



j data— iiEnie-3 ( ^^ j data,— naijie— 4 {^ 
1 label-field- 



oil uai-a-naxne-* ( 

1 / — tliteral-1 / 



Jdata-name-5 \ ^q / 
t label -field-2 / — ( 



data-name-6 
literal-2 



} 



^,^. (record IS / , ^ r , ^ 

'^5^^ j RECORDS are} data-name-7 [,data-name-8] ., 



j REPORT IS / 
' i REPORTS ARE ( 



report-name-1 [, report-name-2] . . , 



The level indicator FD identifies the file description entry; it must precede 
the file name. All semicolons are optional, but the entry must be terminated 
by a period. 

Clauses which follow the file name are optional in many cases, and their 
order of appearance is immaterial. See section 3 for a discussion of the 
BLOCK, RECORD, LABEL, VALUE OF, and DATA clauses. 

If the RECORD CONTAINS or DATA RECORD clauses are not specified, a 
record area 136 characters long is automatically assigned to the file . 
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The REPORT clause cross references the report description entries with 
associated file description entries: 

I REPORT IS / , ^ . 

{ reports are} report-name-1 t, report-name-2]. . . 

The REPORT clause is required in the file description entry if the file is 
an output report or if it is to contain output report records . Each report 
name listed in the FD entry must be the subject of a report description 
(RD) entry in the Report Section. The presence of more than one report 
name indicates that the file contains more than one report. These reports 
need not have the same description and the order in which they are listed 
is not significant. 



5.2.2 

REPORT 
DESCRIPTION ENTRY 



The Report Description defines the physical structure and identification of 
a named report. 

Format 1: 

RD report -name -1 [WITH CODE mnemonic-name] COPY library-name . 

This format is used only when the complete RD entry is contained in the 
COBOL library. 

Format 2 : 

RD report-name-2 [ WITH CODE mnemonic-name-2 ] 
~ FINAL 



\ CONTROL IS 



u 



I CONTROLS ARE I 



identif ier-1 [ identifier -2 ] 
FINAL identifier-l [identifier -2] 



PAGE 



LIMIT IS I 
LIMITS ARE i 



integer-l 



I LINE 
I LINES 



r HEADING integer-2] 
[ FIRST DETAIL integer-3] 
[ LAST DETAIL integer-4 ] 
[ FOOTING integer-5] 



The level indicator RD which identifies the Report Description must precede 
the report name. The report name must appear in a REPORT clause of an 
FD entry. All semicolons are optional in the Report Description but the 
entry must be terminated by a period. 
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Clauses which follow the report name are optional in many cases. Except 
in format 1, the order of their appearance is immaterial. 

The fixed data names, LINE-COUNTER, and PAGE-COUNTER are auto- 
matically generated by the Report Writer based on the presence of specific 
entries; they are not data clauses. 



5.2.3 

REPORT GROUP 

DESCRIPTION ENTRY The report group description entry specifies the characteristics of a particular 
report group and of the individual items within a report group. All semicolons 
are optional in the report group description but the entry must be terminated 
by a period. A report group must have a data-name if it is referred to by a 
Procedure Division statement. 

Format 1: 

01 [data-name-1] 



/ integer -1 
; LINE NUMBER IS } PLUS integer-2 
( next PAGE 

/■ integer -3 
; NEXT GROUP IS ) PLUS integer-4 
I NEXT PAGE 



; TYPE IS 



( REPORT HEADING ) 
( RH ) 

( PAGE HEADING ) 

tra j 

( CONTROL HEADING ^ Tidentifier-l ) 
t cH / ( FINAL / 

/DETAIL) 

1 de J 

J CONTROL FOOTING ) ridentifier-2 ) 
( CF f ( FINAL / 

(• PAGE FOOTING ) 

( REPORT FOOTING 
I RF 



[ ; USAGE IS DISPLAY 1 . 
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Format 1 Indicates a report group; the report group extends from this entry 
to the next report group (level 01) entry. The TYPE clause is required for 
every report group to indicate whether the group is a heading, detail, or 
footing group. If a control heading or control footing group is specified, 
TYPE also indicates the control item which will cause these groups to be 
generated. 

Format 2: 

nn [data-name -1] 

[; COLUMN NUMBER IS integer -1] 

[; GROUP INDICATE] 

I JUST 



JUSTIFIED RIGHT 



LINE NUMBER IS 



integer-2 
PLUS integer-3 
NEXT PAGE 



' I PICTURE 
; RESET ON 



IS character-string 



\ identifier-1 



I FINAL 

[; BLANK WHEN ZERO ] 

SOURCE IS identlfier-2 

SUM identifier-3 [, identifier-4] . . . [UPON data-name-2] 

VALUE IS literal-1 



[; USAGE IS DISPLAY ] . 

Format 2 indicates an elementary item or group item within a report group. 
If a report group consists of only one elementary entry, format 2 may include 
TYPE and NEXT GROUP clauses to specify the report group and elementary 
item in the same entry. In this case, the level number must be 01. Other- 
wise, the level numbers in format 2 are in the range 02 to 49. Elementary 
item descriptions are written (left to right) in the order in which they will 
appear on the printed page . The position of a report group within a report 
is determined by the TYPE clause. 
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5.3 

DATA DIVISION 

CLAUSES See section 3 for a discussion of the JUSTIFIED, PICTURE, BLANK WHEN 

ZERO, and USAGE clauses. The remaining clauses in the report descrip- 
tion entry and the report group description entry are described in the follow- 
ing pages; they appear in alphabetic order. 



5.3.1 

CODE The CODE clause defines a unique character to be affixed to each report line 

produced in this report. 

WITH CODE mnemonic -name-1 

The CODE clause, when used in formal 1 of the RD entry, must follow 
immediately after the report name. 

CODE mnemonie-name-1 indicates a unique character which is automatically 
prefixed to and identifies each report line produced. Multiple reports may 
then be produced simultaneously onto one output device for later individual 
report selection. The mnemonic name must appear in the Special-Names 
Paragraph of the Environment Division. 
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5.3.2 

COLUMN NUMBER This clause indicates the absolute column number on the printed page of the 

high -order (leftmost) character of the elementary item. Integer-1 must be 
positive. 

COLUMN NUMBER IS integer-1 

The COLUMN NUMBER clause can be given only at the elementary level 
within a report group. For a particular line, COLUMN NUMBER entries 
are presented in the order, from left to right, in which the items will 
appear on the page . 

The COLUMN NUMBER clause must be specified if this elementary item is 
to be presented. If the column number is not indicated, the elementary item, 
though included in the description of the report group, is suppressed when 
the report group is produced. When COLUMN NUMBER is specified, the 
PICTURE clause and one of the clauses, SOURCE, SUM, or VALUE must 
be included in the item description. 

Example : 

01 DETAIL-LINE 

TYPE DETAIL LINE PLUS 01. 

03 COLUMN 02 PICTURE X(10) SOURCE IS PROG-NAME. 

03 COLUMN 13 PICTURE ZZZZ9 SOURCE IS COBOL-LINES. 

03 COLUMN 20 PICTURE ZZZZ9 SOURCE IS GMAP-LINES. 

03 COLUMN 27 PICTURE Z9. 99 SOURCE IS G-RATIO. 

03 COLUMN 34 PICTURE Z(5)9 SOURCE IS O-LINES. 

03 COLUMN 42 PICTURE ZZZ9.99 SOURCE IS O-RATIO. 
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5.3.3 

CONTROL The CONTROL clause specifies the identifiers which provide control breaks 

for this report. Whenever the value contained in these identifiers changes, 
a control break occurs. The control hierarchy is defined by the order of 
the control breaks. This clause is included in the report description (ED) 
entry for an entire report. 



CONTROL IS 



r FINAL 

< identifier-1 [, identiEier-2] . 



CONTROLS ARE 1^^^,.^ -^ ^.-^ i r a ^-^p- oi 
' V FINAL , identifier-1 l, identifier-2J . . 

The CONTROL clause Is required when control heading or control footing 
report groups are specified. 

The identifiers are listed in order from major to minor; FINAL is the highest 
control, identifier-1 is the major control, identifier-2 is the intermediate 
control, etc. The last identifier specified is the minor control. The Idenfi- 
fiers must be defined in the File, Common-Storage or Working -Storage 
Section of the Data Division. 

The identifiers specified in the CONTROL clause are the only identifiers 
referred to by the RESET and TYPE clauses in a report group description 
entry for this report. This clause is optional, but must be included when 
the TYPE clause specifies control headings or footings or when RESET is 
specified. Control headings and footings are printed automatically whenever 
the value of an identifier specified in this clause chaises. The final control 
heading is printed before any other control headings when the first GENERATE 
is executed, and final control footing is printed when the TERMINATE state- 
ment is executed. 

Example: 

RD REPORT-A 

CONTROLS ARE FINAL, DEPT-NO, SECT-NO 



During the generation of REPORT-A, the control headings and footings 
associated with SECT-NO are produced when the contents of the data item 
called SECT -NO changes. The control headings and footings associated with 
DEPT-NO are produced in addition to those associated with SECT-NO when 
the contents of DEPT-NO changes. The final control heading, in addition to 
all lower level control headings, is produced when the first GENERATE 
statement is executed for this report, the final footing follows all other con- 
trol footings when the TERMINATE statement is executed. 
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5.3.4 

GROUP INDICATE This clause specifies that its associated elementary item is to be presented 

only once on the first occurrence of the item following a control break or at 
the beginning of a new page. 

GEOUP INDICATE 

GROUP INDICATE must be given only at the elementary item level within a 
TYPE DETAIL report group. 

An elementary item is group indicated in the first DETAIL report group 
containing the item after a control break. It is also group indicated in the 
first DETAIL report group containing the item on a new page, even if a con- 
trol break did not occur. 

Example : 

01 DETAIL-ITEM TYPE DETAIL LINE PLUS 1 . 

02 DEPT PICTURE X COLUMN 20 SOURCE DEPT-NO 

GROUP INDICATE. 
02 SECT PICTURE X(3) COLUMN 30 SOURCE SECT-NO 

GROUP INDICATE. 
02 GRP-NO PICTURE X(3) COLUMN 40 SOURCE GROUP-NO. 
02 AMOUNT PICTURE 9(5) COLUMN 45 SOURCE AMNT-NO. 



In the above detail report group, the items called DEPT and SECT will be 
printed only the first time the detail group appears on a page or when a 
control break occurs. The other items in the group will be printed each 
time the detail group is printed. 
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5.3.5 

LINE NUMBER 



This clause indicates the absolute or relative line number of the entry in 
reference to the page or the previous entry. 



LINE NUMBER IS 



integer-l 
PLUS integer-2 
NEXT PAGE 



Integer-l and integer-2 are positive integers. Integer-l must be within the 
range specified by the PAGE LIMITS clause in the report description entry. 

The LINE NUMBEE clause must be given for each report line of a report 
group. For the first line of a report group it is given at the report group 
level; it may also be given before or at the first elementary item in the 
line. For report lines other than the first in a report group, it must be 
given before or at the first elementary item in the line . 

If the LINE NUMBEE clause is specified at the report group level, entries 
for the first report line within the report group are presented on the speci- 
fied line number. If LINE NUMBEE is specified for an entry at a subordinate 
level, all succeeding printable items are presented on that print line, until 
another LINE NUMBER clause is declared or the report group ends. Print- 
able items are those elementary items which have descriptions containing 
the COLUMN NUMBER clause. A line number for the first subordinate level 
may not contradict the line number of its group level. 

Integer-l indicates an absolute line mmiber. The line counter is set to this 
value in this and following entries within the report group until a different 
value for LINE NUMBER is specified. 

PLUS integer-2 indicates a relative line number which increments the line 
counter in this and following entries within the report group until a different 
value for LINE NUMBER is specified. 

Within a report group, absolute LINE NUMBER entries must be indicated in 
ascending order, and an absolute LINE NUMBER cannot be preceded by a 
relative LINE NUMBER. 
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The NEXT PAGE phrase indicates an automatic skip to the next page before 
presenting the first line of the current report group. Appropriate page 
footings and page headii^s will be produced as specified. NEXT PAGE may 
not be specified for page heading or page footing report groups . 

Examples: 

1. 01 GROUP-A TYPE DETAIL LINE IS NEXT PAGE. 

03 PART-1 LINE 01 . . . 

03 PART-2 LINE PLUS 01 . . . 

Each detail report group starts on a new page ; the first entry in the 
group is on the first line , the second on the next line . 

2, 01 TYPE RH LINE IS 1 ... 

NEXT GROUP IS PLUS 2. 
01 TYPE DE LINE PLUS 1 . . . 
01 TYPE CF DATA-LIST LINE PLUS 2 . . . 

The report heading group is printed on line 1; 3 lines are skipped before 
the first detail group is printed, each subsequent detail line is printed 
on the next line; 2 lines are skipped before the control footing group is 
printed. 
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5.3.6 

NEXT 



GROUP 



The NEXT GROUP clause specifies the spacing between the last line of the 
report group and the next report group to be generated. 



NEXT GROUP IS 



integer -1 
PLUS integer-2 
NEXT PAGE 



The NEXT GROUP clause must appear only at the 01 level which defines the 
report group. 

Integer-1 and integer-2 are positive, and integer-1 cannot exceed the maxi- 
mum number of lines specified per report page. Integer-1 indicates an 
absolute line number which sets the line counter to this value after producing 
the last line of the current report group. 

PLUS integer-2 specifies a relative line number which increments the line 
counter by the integer-2 value. Integer-2 represents the number of lines 
skipped following the last line of the current report group. Further spacing 
iS speciiieu uy tue LINE NUMBER ciause oi tue next report group produced. 

The NEXT PAGE phrase indicates an automatic skip to the next page following 
the last line of the current report group. Page heading and page footing report 
groups are produced as specified. When specified for a control footing or 
heading report group, NEXT GROUP results in automatic line spacing only 
when a control break occurs on the level for which the control footing or 
heading is specified. NEXT PAGE is illegal in page heading and page footing 
report groups. 

Example: 

01 DETAIL- LINE 
TYPE DETAIL 
LINE PLUS 01. .. 
NEXT GROUP PLUS 3. 

DETAIL-LINE is printed on the line foUowir^ the preceding group; and 
DETAIL-LINE will be followed by three blank lines before the next 
group is printed. 
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5.3.7 

PAGE LIMIT This clause indicates the specific line control to be maintained within the 

logical presentation of a page. PAGE LIMIT is required when page format 
is to be controlled by the Report Writer; it may be omitted when no associa- 
tion is necessary between report groups and the physical format of the report 
page. If PAGE UMIT is omitted, absolute LINE NUMBER and absolute 
NEXT GROUP clauses must also be omitted. 

Only one PAGE LIMIT clause can be specified for each RD entry. 

^^^Ql^slREO^t^g"^-^ jliisj [. HEADING integer-2] 
[ , FIRST DETAIL integer-3] I LAST DETAIL integer-4] 
[, FOOTING integer-51 

Integer-1 through integer-5 must be positive. Integer-2 through integer-5 
each must be less than or equal to integer-1. 

Integer-! is required to specify the depth of the report page; it need not be 
equal to the physical perforated continuous form often associated in a report 
with the page length, t The size of the fixed data name, LINE-COUNTER, is 
based on the integer-1 LINES specification. It is the maximum numeric 
size required to prevent overflow. 

If absolute line spacing is indicated for all report groups, integer-1 must be 
specified, and none of the integer-2 through integer-5 controls need be 
specified. 

If relative spacing is indicated for individual type detail report group entries, 
the following must be specified: 

Integer-3 if a page heading is present 
Integer-4 if a control heading is present 
Integer-5 if a page footing is present 

HEADING integer-2: First line number of first heading report group. No 
report group will start before integer-2. 

FIRST DETAIL integer-3: First line number of first normal (detail or con- 
trol) report group. No detail or control report group will start before 
integer-3 . 



t The only carriage control tape requirement is that the TOP-OF-FORM punch 
must be equal to LINE of the report. 
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LAST DETAIL integer-4: Last line number of last normal (detail or control) 
report group. No detail or control heading report group will extend beyond 
integer-4. 

FOOTING integer-5: Last line number of last control footing report group. 
No control footing report group will start before integer-3 nor extend beyond 
integer-5. Page footing report groups follow integer-5. 

When relative line numbers are specified for report groups, PAGE LIMITS 
integer-1 is specified and some or all of HEADING, FIRST DETAIL, LAST 
DETAIL, and FOOTING, clauses are omitted, the following implicit control 
is assumed for the omitted specifications: 

If HEADING integer-2 is omitted, integer-2 is considered equivalent to 
the value 1, that is, LINE NUMBER one. 

If FIRST DETAIL integer-3 is omitted, integer-3 is considered equivalent 
to the value of integer-2. 

If LAST DETAIL integer-4 is omitted, integer-4 is considered equivalent 
to the value of integer-5. 

If FOOTING integer-5 is omitted, integer-5 is considered to be equivalent 
to the value of integer-4. If both LAST DETAIL integer-4 and FOOTING 
integer-5 are omitted, both are considered to be equivalent to the value 
of integer-1. 

The following chart represents the limits of page format when all options of 
the PAGE LIMIT clause are specified: 



Report 

Heading/ 

Footing 



Page 
Headins 



Detail & 

Control 

Heading 



Control 
Footing 



.Page 
Footing 



integer-2 
integer-3 
integer-4 
iateger-5 
iateger-1 
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Absolute LINE NUMBER or absolute NEXT GROUP spacing must be consistent 
with controls specified in the PAGE LIMT clause. 

Examples: 

1. REPORT SECTION. 
RD RATIO-REPORT 

PAGE LIMIT IS 55 LINES. 

In this example, an absolute page limit is indicated. 

2. REPORT SECTION. 

RD REPORT-A 

CONTROLS ARE FINAL, DEPT-NO, SECT-NO 

PAGE LIMIT IS 60 LINES 

HEADING 1 

FIRST DETAIL 10 

LAST DETAIL 55 

FOOTING 60. 



In this example, automatic line control of heading, footing, and detail groups 
within the report page are indicated. 
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5.3.8 

RESET The RESET clause is used in an elementary item description in a control 

footing report group to override the automatic resetting of the sum counter 
following the associated control break. 



RESET on) '^^°ff^^^"M 
I FINAL I 



RESET can be used only at the elementary level in conjunction with the SUM 
clause (see SUM clause description) . Identifier-1 must be one of the identi- 
fiers specified in the CONTROL clause of the RD entry for the report. It 
must be a higher level identifier than the control identifier associated with 
the control footing or detail report group containing the RESET clause. 

^'Tien RESET is not specified, the sxua counters associated with the report 
group by the SUM clause are automatically reset to zero after the control 
footing or the detail report group Is presented. RESET prevents the auto- 
matic resetting of the sum counters until the control footing or detail report 
group associated with identifier-1 has been presented. This clause, therefore, 
permits progressive totaling of data while presenting subtotals at lower levels 
of control. 

RESET FINAL indicates that the counter is not to be reset until the final con- 
trol footing or detail report group has been generated. With this option cumu- 
lative totals are presented throughout the report. 

Example : 

RD RE PORT -A 

CONTROLS ARE FINAL, DEPT, SECT, GROUP, MAN. 

01 GROUP-TOTALS TYPE IS CONTROL FOOTING GROUP 
LINE NUMBER IS PLUS 2. 
03 COLUMN 30 PICTURE 9(10) 

SUM GRP-HRS RESET ON SECT. 

GRP-HRS are summed for this control footing group and the subtotal is 
incremented and presented with each group total until there is a control 
break at the SECT level of the control hierarchy. The subtotal is added to 
the sum at the SECT level and then reset to zero before the SECT control 
footing report group is presented. 
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5.3.9 

SOURCE - SUM - VALUE The SOURCE, SUM, or VALUE clauses define the purpose of an elementary 
item within the report group; only one clause is included in the description 
of any one item, and it must only appear at the elementary level. 

SOURCE IS identifier-1 

SUM identifier-2 [, identifier-3] . . . [ UPON data-name-1] 

VALUE IS literal-1 

The identifiers must identify an item in the File, Working-Storage, or 
Common-Storage Sections; a sum counter in the Report Section; or one of 
the special registers: SYSTEM-DATE, or SYSTEM-TIME. The literal in 
the VALUE clause may be numeric, non-numeric, or a figurative constant. 
Data-name-1 is the name of a detail report group; it may be qualified by 
report name if the name is used in more than one report description. SOURCE 
and SUM are described below; VALUE is described in chapter 3. 

The SOURCE clause indicates a data item used as a source for the report 
item . PICTURE must also be specified in the entry for the report item . The 
value of identifier-1 at object time is effectively moved to the report item and 
presented according to the PICTURE specified in the report item description. 
The fixed data items LINE-COUNTER or PAGE-COUNTER may be specified 
as identifier-1; in this case the current value of the line counter or the page 
counter is the source. 

Examples: 

1. 01 DETAIL-ITEM TYPE DETAIL LINE PLUS 1. 
02 DEPT PIC X COLUMN 70 SOURCE IS DEPT-NO. 

In this example, DEPT-NO is the name of a data item in the File, Working- 
Storage, or Common-Storage Section. 

2. 01 TYPE IS PAGE HEADING LINE PLUS 02. 
02 COLUMN 110 PIC X(4) VALUE IS "PAGE". 
02 COLUMN 115 PIC 999 SOURCE IS PAGE-COUNTER. 
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The SUM clause indicates values to be accumulated when a control break 
occurs at object time , It may appear only in a control footing or a detail 
report group at the elementary level . Any item containing a SUM clause 
generates a numeric counter used for summing the operands specified by 
the identifiers following the word SUM. This summation counter can be 
referenced by specifying the data name of the item containing the SUM clause . 
If a summation counter is never referenced, a data name need not be included 
in the entry containing SUM. A PICTURE clause must always be included in 
an entry containing a SUM clause. Editii^ characters or editing clauses may 
be included but editing occurs only upon presentation of the summation counter 
in the report. At all other times the summation counter is treated as a num- 
eric data item. The PICTURE must specify a size large enough to accommo- 
date the summed quantity without truncation of integral digits . 

iijSiC±^ luSm weing summed ^iv^enciiier^u, ic[eni.iiicr~4, Ci.c. i muSt appear as une 
object of a SOURCE clause in a detail report group, name an entry containing 
a SUM clause in a control footing reiwrt group at an equal or lower position 
in the control hierarchy, or name an entry containing a SUM clause in a detail 
report group of the lowest level of the control hierarchy. The items being 
summed must be explicitly included in a detail report group, but they may be 
suppressed at presentation time. 

The summation of data items defined as summation counters in control footing 
or detail report groups is accomplished explicitly or implicitly by the Report 
Writer. A summation counter is algebraically incremented just before the 
detail report group which contains the data items being summed is presented. 

The items being summed (identifier-3, identifier-4, etc.) are added to the 
summation counter at each execution of a GENERATE statement. This 
statement generates a detail report group that contains the SUM operands 
at the elementary level. Summing is done according to the rules for ADD 
in the Procedure Division (section 4.7.2). 
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If the sum of a data item is to be presented at a higher level of the control 
hierarchy, the lower level SUM specification may be omitted. If higher level 
report groups are indicated in the control heirarchy, counter updating pro- 
cedures take place prior to the reset operation. Unless RESET is specified, 
each summation counter at the level just produced is reset to zero. 

The UPON data-name-1 option provides selective summation when a particular 
data item is named in the SOURCE clause of two or more detail report groups. 
Identifier-3, identifier-4, etc. , must be named in a SOURCE clause in the 
detail report group identified by data-name-2. 

Example : 

01 TYPE IS CONTROL FOOTING SECT-NO LINE PLUS 2. 

02 COLUMN 20 PICTURE X(10) VALUE IS "SEC TOTAL". 
02 COLUMN 30 PICTURE ZZZ, ZZZ. 99 SUM AMNT-NO. 

If AMNT-NO is the object of a SOURCE clause in a detail report group, 
each time the detail group is presented the contents of AMNT-NO will 
be added to the summation counter associated with AMNT-NO. The 
contents of this counter will be presented when the control footii^ report 
group is presented. 
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5.3.10 

TYPE This clause specifies the particular type of report group that is described 

by this entry and indicates the time at which the report group is to be gen- 
erated. It must appear in an 01 level entry. 



/ ( REPORT HEADING ) 

I \m / 

(" PAGE HEADING ) 

IPH / 

( CONTROL HEADING i ( identif ier-n ) 

ICH n FINAL / 



TYPE IS 



} 



(DETAIL 

I DE 

( CONTROL FOOTING ) |identifier-n 

|CF / t FINAL 

( PAGE FOOTING I 

iPF / 



] 



\{ 



( REPORT FOOTING 
RF 



The level number 01 identifies the particular report group to be generated 
as output. The TYPE clause indicates the time for generating this report 
group. A report group described as other than DETAIL is automatically 
generated by the Report Writer. If the report group is described as DETAIL, 
the Procedure Division statement, GENERATE identifier, directs the Report 
Writer to produce the named report group. 

The REPORT HEADING or RH entry indicates a report group that is produced 
only once at the beginning of a report during execution of the first GENERATE 
statement. Only one report group of this type can appear in a report. Nothing 
may precede a REPORT HEADING entry in a report. SOURCE clauses used 
in TYPE RH report groups refer to the values of data items at the time the 
first GENERATE statement is executed. 

The PAGE HEADING or PH entry indicates a report group produced at the 
beginning of each page according to page condition rules. Only one report 
group of this type can appear in a report. 

The CONTROL HEADING or CH entry indicates a report group produced at 
the beginning of a control group for a designated identifier. CH FINAL 
indicates a report group produced once before the first control group at the 
initiation of a report during execution of the first GENERATE statement. 
Only one report group of this type can appear for each identifier and for the 
FINAL specified in a report. To produce CONTROL HEADING report groups, 
a control break must occur (see section 5. 1. 1) . SOURCE clauses used In 
TYPE CONTROL HEADING FINAL report groups refer to the values of the 
items at the time the first GENERATE statement is executed. 
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The DETAIL or DE entry indicates a report group produced for each GENERATE 
statement in the Procedure Division. Each DETAIL report group must have a 
unique data name at the 01 level in a report. 

The CONTROL FOOTING or CF entry indicates a report group produced at the 
end of a control group for a designated identifier or produced once at the ter- 
mination of a report ending a FINAL control group. Only one report group of 
this type can appear for each identifier and for the FINAL specified in a report. 
To produce any CONTROL FOOTING report groups, a control break must occur. 

SOURCE clauses in TYPE CONTROL FOOTING FINAL report groups refer to 
the values of the items at the time the TERMINATE statement is executed. 

The PAGE FOOTING or PF entry indicates a report group produced at the 
bottom of each page . Only one report group of this type can appear in a 
report. 

The REPORT FOOTING or RF entry indicates a report group produced only 
once at the termination of a report. Only one report group of this type can 
be used in a report. Nothing may follow a REPORT FOOTING entry in a 
report. SOURCE clauses in REPORT FOOTING report groups refer to the 
value of items at the time the TERMINATE statement is executed. 

CONTROL HEADING report groups appear with the current values of any 
indicated SOURCE data items before the DETAIL report groups of the control 
group are produced. CONTROL FOOTING report groups appear with the pre- 
vious values of any indicated SOURCE data items just after the DETAIL report 
groups of that control group have been produced. These report groups appear 
when a control break is noted. LINE NUMBER determines the absolute or 
relative position of the CONTROL report groups exclusive of the other HEAD- 
ING and FOOTING report groups. 

Identifier-n, as well as FINAL, must be one of the identifiers described in 
the CONTROL clause of the RD entry. A FINAL control break may be des- 
ignated only once for CONTROL HEADING or CONTROL FOOTING entries 
within a report. 
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HEADING and FOOTING report groups occur in the following sequence if all 
exist for a given report: 

RE POET HEADING (one occurence only) 
PAGE HEADING 

CONTEOL HEADING 

DETAIL 

CONTEOL FOOTING 

PAGE FOOTING 

REPORT FOOTING (one occurrence only) 

CONTROL HEADING report o'roups are ^resented in the followir*^ order; 

Final Control Heading 
Major Control Heading 

Minor Control Headii^ 

CONTROL FOOTING report groups are presented in the following order: 

Minor Control Footing 

Major Control Footing 
Final Control Footing 
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5.4 

PROCEDURE 
DIVISION 
STATEMENTS 



5.4.1 

GENERATE 



The GENERATE statement links the Procedure Division to the Report Writer 
as described in the Report Section of the Data Division, 



GENERATE identifier 

Identifier represents a detail report group or an RD entry. 

If identifier is the name of a detail report group, the GENERATE statement 
produces all the automatic operations within a Report Writer and produces 
an output detail report group on the output device. This procedure is called 
detail reporting. 

If identifier is the name of an RD entry, the GENERATE statement produces 
all the automatic operations of the Report Writer and updates the footing re- 
port groups within a particular report description without actually producing 
a detail report group associated with the report. In this case, all summation 
counters associated with the report description are algebraically incremented. 
This procedure is called summary reporting. If more than one detail report 
group is specified in a report defined by the RD entry, all summation counters 
are algebraically incremented each time a GENERATE statement is executed. 

A GENERATE statement, implicitly in both detail and summary reporting, 
produces the following automatic operations: 

• Recognizes specified control breaks to produce control footing and 
control heading report groups 

• Accumulates into the summation counters all specified identifiers 

• Executes specified routines defined by a USE statement before 
generatii^ associated report groups (See USE, section 5.4.4) 

• Steps and tests the line counter and page counter to produce page 
footing and page heading report groups 

• Creates and prints the print line image 

• Resets the summation counters unless suppressed by the RESET 
clause 
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During execution of the first GENERATE statement, report groups are produced 
in the following order: 

REPORT HEADING report group 

PAGE HEADING report group 

all CONTROL HEADING report groups in the order FINAL, major to minor 

DETAIL report group, if specified in the GENERATE statement 

If a control break is recognized when any GENERATE statement after the first 
is executed, all specified control footing report groups are produced from the 
minor report group up to and including the report group specified for the identi- 
fier which caused the control break. Then, all specified control heading report 
groups from the report group specified for the identifier that caused the control 
break down to the minor report group, are produced in that order. The detail 
report group specified in the generate statement is then produced. 

Data is moved to the data item in the report group description entry of the 
Report Section, and it is edited under control of the Report Writer according 
to the same rules for movement and editing as described for MOVE. 
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5.4,2 

INITIATE INITIATE 



Report processing begins with the INITIATE statement. 
INITIATE report -name-1 [, report -name -2], . . 

Each report name must be defined by a report description entry in the Report 
Section of the Data Division. 

The INITIATE statement resets all data name entries that contain SUM clauses 
associated with the report; and it sets up the Report Writer controls for all 
report groups associated with this report. 

If PAGE -COUNTER is specified, it is set to one before or during execution 
of the INITIATE statement. If the starting value is to be other than one, the 
user may reset this counter foUowii^ the INITIATE statement. 

If LINE-COUNTER is specified, it is set to zero before or during the execu- 
tion of INITIATE . 

The INITIATE statement performs Report Writer functions for individually 
described report programs analogous to the input -output functions that the 
OPEN statement performs for individually described files. 

A second INITIATE statement for a particular report name may not be executed 
unless an intervening TERMINATE statement has been executed for that report 
name. 
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5.4.3 

TERMINATE Report processing is completed by the TERMINATE statement. 

TERMINATE report -name-1 [, report -name-2] . . . 

Each report name must be defined by an RD entry in the Data Division. 

The TERMINATE statement produces all control footings associated with this 
report as if a control break had just occurred at the highest level; and it com- 
pletes the Report Writer fxmctions for the named reports. TERMINATE also 
produces the last page and report footing report groups associated with this 
report. Page heading or page footir^ report groups are prepared in order 
for the report description. 

A second TERMINATE statement for a particular report may not be executed 
unless an intervening INITIATE statement has been executed for the report 
name. 

The TERMINATE statement performs Report Writer functions for individually 
described report programs analogous to the input -output functions that the 
CLOSE statement performs for individually described files, TERMINATE 
does not close the file with which the report is associated; a CLOSE statement 
for the file must be given by the user. 

SOURCE clauses used in final control footing or report footing report groups 
refer to the values of the items durii^ execution of the TERMINATE statement. 



60229400 5-29 



5.4.4 

USE BEFORE 

REPORTING The USE statement specifies Procedure Division statements to be executed 

just before a report group is produced. 

USE BEFORE REPORTING identifier-1 [, identifier-2] . . . 

A USE statement is specified immediately after a section header in the 
Declarative portion of the Procedure Division; it must be followed by a space. 
The remainder of the section must consist of one or more procedural para- 
graphs that define the procedures to be used. 

Each identifier represents a report group named in the Report Section of the 
Data Division. An identifier must not appear in more than one USE statement. 

No Report Writer statement (GENERATE, INITIATE, or TERMINATE) may 
be written in a procedural paragraph following the USE sentence in the declara- 
tive portion. 

The USE statement itself is never executed, rather it defines the conditions 
calling for the execution of the USE procedures. The designated procedures 
are executed by the Report Writer just before the named report is produced, 
regardless of page or control break associations with report groups. If USE 
procedures are specified for a CONTROL FOOTING report group, they affect 
the previous value of items specified in the CONTROL clause or the current 
value of items specified in a SOURCE clause. 

A USE procedure must not contain any reference to non-declarative procedures. 
Conversely, the non-declarative portion must not contain reference to proce- 
dure-names that appear in the declarative portion, except that PERFORM 
statements may refer to a USE declarative or to the procedures associated 
with the USE declarative. 
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S JOB ACCOUNTING INFOKd'^riON 

o 

DATE»10/l*/66 FUiTl0M=0C TIM£-0N«1 3/16/S7 TIME-0FF=13/l7/34 

TIME USED 

COMP«QQ/0Q/lSi»Jl34 

CHAN = 00/00/Qrt.b<^2 

FACILITIES NUT J^tO 

co«E«oia 

ScR "006 

HNE«3702 

CA«D«499 

JO8«NLVK3LWl.VIANOS.60»5000»600 

SCHED»CORE«50.SC«»15»CLASS=l»Ah!OHT»l500 

UC8L(l.»M,0,x) 




USaSI COdOL 1.0 / FASTER 2.1 REP0RT-WRITE«-£XAMPLE 10/14/68 

00001 IDENTIFICATION DIVISION, 

00002 PROGRAM-ID. REPO«T-WRi TER"EXAMPt£. 

00003 AUTHOR. ANONYMOUS Q CITIZEN. 

00004 UATE-WHITTEM. 02/09/68. 

00005 DATE-COMPILED. lO/U/68 

00006 ENVIRONMENT DIVISION, 

00007 CONFIGURATION SECTION. 
OOOOB SOURCE-COMPUTER. 3300. 

00009 OBJECT-COMPUTER. 3300. 

00010 INPUT-OUTPUT SECTION, 

00011 FILE-CONTROL. 

00012 SELECT FILE-A ASSIGN TO SYSTEM-INPUT, 

00013 SELECT FILE-B ASSIGN TO SYSTem-OUTPUT, 



I 

05 



I 

CO 
CO 



USaSI COdOL l.c / .^flSTfcH 2.1 REPORT-wHI TeR-EXA>.PLE l0/l*/68 

(JOOU L»*"^ DIVISION. 

00015 f-ILE SECTION. 

OOOlfe ""t' FIUE-A 

00017 LABEL **ecOt<OS AHf. OMiTTEo 

„00ia DATA R'vCOHD IS CaHD-IMAGE. 

00019 DOOOiu 01 caho-Image. 

00020 UCOOil 02 OEPT-NO MICfURE A(b). 

00021 OU00i«i Oa SECT-NO PICIURE X(S). 

00022 jUOulJ 02 GHOUP-NO PIC X(S>), 

00023 o''0"^* ^^ AMNT-NO Pic 9t3)Vq(2), 

00024 S-D FILE-B 

0002b LABEL HtCOKOS rtKE OMITTED 

QQf,2(S REPORT IS REPOMT-A. 

00027 KEHURT SECTION. 

00028 ^0 REPORT-A 

Joogq CONTROLS ARE FI'MaL. OEPT-NO. SECT-NO 

00030 P^t^E LI'^IT IS "0 LINES 

00031 HEAOINfi I 
nnn32 FIRST DETAIL 10 

00033 LAST DETAIL 50 

00034 FOOTING 55. 

ono35 01 TYPE IS REPORT HEADING LINE n2» 

00036 02 COLUMN 02 RlC *X v/ALUE IS *fi»*» 

lllij 02 COLUMN &2 PIC A(i5) y/ALUe ''EXPENSE ACCOUNT*. 

00038 01 TYPE IS PAGE MEADI'^G LINE PLJS 2, 

o„f,39 02 COLUMN i PIC XX MLUE #PH* 

00040 02 COLUMN HO PiC X(4) VALUE #PAGEi'. 

llll{ 0? COLUMN 115 PIC VqO SOURCE IS PAGE-COUnTER. 

""L2 02 LINE PLUS 1 COLUMN 90 PiC X<8) VALUE *GROuP N0#. 

0ft„.3 02 COLUMN 100 PIC X(7) VALUE JtEXPENSEs*. 

00044 Ul TYPE IS CONTROL HEADING FINAL LINE PLUS 2. 

0004«S 02 COLUMN 4 PIC XXX VALUE "CHF*. 

Ooo^b 02 COLUMN 60 Pic X<)7) VALU£ MTeMIZed by G«OUP>t. 

JJJ47 01 TYPE IS cO-JTROL HEADING OEPT-NO LINe (SLUS 2, 

0004a 02 COLUMN 5 piC XXX VALU^ #CHA#, 

nnD49 02 COLUMN 7o RIC <(7) VaLUE ^OEPT-NO*. 

""Ln 01 TYPE IS CONTROL HEADING SEC^-NO LINE PLUS 1 

06051 NEXT GROUP PLUS 2. 

^ 00052 02 COLUMN 6 PIC XXX VALUE *CH8#. 

g 00053 02 COLUMN HO PIC X(7) VALUE *SECTION»t. 

g ;0054 01 DETAIL-ITE'^ TyP£ DETAIL LI^E PLUS U 

^ nnn^t; 02 COLUMN 7 PIC XX VALUE "DE*. 



o 
o 



nnn(:;^ 02 COLUMN ( •'IV- ^^ vAuur '•L/C..-. 

X2n^^ 02 OEPT PIC X(5) COLUMN 70 SOURCE OEPT-NO GROUP INDICATE. 
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o USASi COBOL i.e. / f^ASTtR 2.1 REPOHT-wftlTER-EXAMPLE lO/U/68 

to 

^ 00057 0? SECT PIC X(5) COLUMN 8" SOURCE SECT-NO GROUP INDICATE, 

o OOOsa 02 6RP-N PIC X<5) COLUMN 9° SOURCE GROUP-NO. 

02 AMOUNT PIC ZZZ.ZZ COLUMN 100 SOURCE AMNT-NO. 
01 TYPE IS CONTROL FOOTING SECT-NO LINE PLUS 2. 

02 COLUMN b PIC XXX Value *cfb** 

02 COLUMN by PIC At 10) VALUE #SEC TOTAL*. 
02 COLUMN 100 PIC ZZZZZZ.ZZ SUM AMNT-NO. 
01 TYPE IS cONThOL FOOTING qePT-NO LINE PLUS 2. 
02 COLUMN i PIC XXX VALUE J^CFA*. 
0? COLUMN 70 PIC A(U) VALUE *DEPT. TOTAL*. 
02 COLUMN 100 •'IC Z/ZZZZ.ZZ SUM AMNj^NO, 
01 TYPE IS CO'MTROL FOOTjNii FINAL LINE PLUS 2. 
02 COLUMN 4 PIC XXX VALUE *CFF*. 
02 COLUMN ''O PIC X(ll) VALUE *QHAND TOTAL*. 
02 C0LUI*1N 100 PiC ZZZZZZ.ZZ SU"^ AMNj^NO, 
01 TYPE IS PAGt FOOTING LINE PLUS 2. 
02 COLUMN 3 PIC XX VALUE *PF*. 
02 COLUMN no PIC X{'=^) VALUE *PAGE*. 
02 COLUMN US fiC 9<J9 SOyRCE IS PAGE-COuMTER, 
01 TYPE IS REPORT FOOTING LINE PLUS g. 
02 COLUMN 2 PIC XX VALUE *RF*. 
02 COLUMN 30 PIC X(4l) VALU£ IS 
*THIS COMPLETES Tme HONTHL^ EXPENSE REPORT,*. 
PROCEDURE DIVISION. 
START, 

OPEN INPUT FILE-A. 
OPEN OUTPUT FILE-8. 
INITIATE REPORT-A. 
3TEP-2. 

READ FILE-A aT END GO TO STOP-lT. 
GENERATE DETaIL-ITEM, 
GO TO STeP-2, 
STOP-IT, 

TERMINATE REPORT-A, 
CLOSE FILE-A, FILE-B, 
STOP RUN, 
END PROGRAM. 



USASi COBOL 


00057 


OOOsa 


00059 


00060 


OOOfel 


00062 


00063 


0006* 


00065 


00066 


00067 


OOOfert 


00069 


OOOTO 


00071 


00072 


00073 


0007* 


00075 


00076 


00077 


00078 


00079 


oooeo 


00081 


00082 


000S3 


OOOs* 


00085 


00086 


000tt7 


00088 


000d9 


OoOyO 


ooovi 


00092 


00093 



CO 



CO 



as 
o 
to 
to 

*>■ 
o 
o 



RH 
PH 



EXPENSE ACCOUNT 



CHF 

CHA 
CH8 
DE 
OE 
OE 
OE 
DE 

CF8 
CHB 
OE 
OE 
OE 
OE 

CF« 

CHB 
DE 

CFH 
CHB 

OE 
CFh 
CFA 

CHA 

CHB 

OE 

DE 



CFH 



PAGE 001 



GROUP NO EXPENSE 



PF 



ITEMIZED «Y GROUP 








DEPT-NO 
AOOlO 


SECTION 
AAOOl 


AAAOX 
AAA02 
AAA03 
AAA04 
AAAOS 


100.50 
120,50 
135.00 
125.90 
158,20 




Section 


SEC TOTAL 


640.10 


AOOlO 


AA002 


AAAOl 
AAA02 
AAA50 
AAA60 


2,50 

28.50 

356«00 

505.00 




SECTION 


sec TOTAL 


892.00 


AOOlO 


AA050 


AAAOl 


600.00 




SECTION 


SEC TOTAL 


600.00 


AOOlO 


AA060 


AAA30 


785,00 






SEC TOTAL 


785.00 


DEPT. TOTAL 




2917.10 


OEPT-NO 


SECTION 






A0020 


AA003 


AAA06 
AAA07 


500.50 
655.00 






sec TOTAL 


U55.50 
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N> 
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PH 



CHB 
DE 

CFB 

CFA 

CHA 
CHB 
DE 

CFB 

CFA 

CHA 
CHB 
DE 

CFB 

CHB 

DE 

CFB 

CFA 

CHA 
CHB 
UE 

CFB 

CFA 



PF 





GROUP NO 


EXPENSE 


PAGE 002 


SECTION 








AQ020 AA004 


AAA16 


425.00 






SEC TOTAL 


425.00 




DEPT, TOTAL 




1560.50 




DEPT-NO 

SECTION 

A0030 AA005 


AAA17 


525.25 






SEC TOTAL 


525. 2S 




DEPT. TOTAL 




525,25 




OEPT-NO 

SECTION 

A0()40 AA006 


AAA20 


682,00 




SECTION 
A0040 AA007 


SEC TOTAL 
AAA30 


682,00 
725,00 






sec TOTAL 


725.00 




DEPT. TOTAL 




1*07,00 




DEPT-NO 

SECTION 








A0050 AA080 


AAA40 


605.80 






SEC TOTAL 


605.80 




DEPT. TOTAL 




605.80 
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CI 

I 
en 



? PH PAGE 003 

S? GROUP NO EXPENSE 

CMA OEPT-NO 

CM8 SECTION 

0£ A0O6O AAIOO AAA50 725,00 

CFB SEC TOTAL 725.00 

CHB SECTION 

DE A0060 AA150 AAA60 688.85 

CFB SEC TOTAL 688.85 

CFA DEPT, TOTAL 1413.85 

CHA DEPT-NO 

CH8 SECTION 

OE A0070 AA250 AAA70 101.05 

CFB SEC TOTAL lOl.oS 

CHB SECTION 

DE A0070 AA260 AAA80 189,50 

CFH SEC TOTAL 189.50 

CFA DEPT, TOTAL 290.55 

CHA DEPT-NO 

QHti SECTION 

DE AOOaO AA300 AAA90 198.50 

CF?* SEC TOTAL 198.50 

CFA DEPT. TOTAL 198,50 

PF Page 003 

o 

to 

to 

§ 



o 

b3 
N) 

CD 
IP- 

O 

o 



PH 
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GROUP NO eXPENSE 



CHA 

CH8 

OE 
CF8 

CFA 

CHA 
CHB 

DE 
CF8 
CFA 
CFF 



DEPT-NO 

SECTION 






A0090 AA350 


AAA95 


.SO 




SEC TOTAL 


.50 


OEPT. TOTAL 




.SO 


DEPT-NO 

SECTION 






AOlOO AA380 


AAA99 


995.00 




sec TOTAL 


995.00 


OEPT, TOTAL 




995.00 


GRAND TOTAL 




9934.05 
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LIBRARY 



The COBOL library contains text that is available to a source program at 
compile time . Compilation of library text is effectively the same as if the 
text were actually written as part of the source program . 

The COBOL library may contain text for the Environment Division, the Data 
Division, and the Procedure Division, Library text is made available through 
the COPY statement. 



6.1 

COPY STATEMENT 



COPY libraiY-name 

REPLACING |!^°^l:i A 
( identifier- 1 ) 



fword-3 ) 
(identifier- 3/ 



gY (word- 2 \ 

— \i dentif ier -2j 



gY (word-4 ) 

— (identifier-4/ 



A word is any COBOL word in a library routine that is not on the list of 
COBOL reserved words (appendix C) . 

The COPY statement may appear: 

• In any Environment Division paragraphs 

• In any FD, SB, RD or 01 level entry in the Data Division 

• In a Procedure Division section or paragraph 

No other statement or clause may appear in the same entry as the COPY 
statement. 

The library text is copied from the library at compilation time. The result 
is the same as if the text were actually part of the source program . The 
COPY process is terminated by the end of the library text. 
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If the REPLACING option is used, each word or identifier specified in the 
format is replaced by a corresponding word or identifier when COPY is exe- 
cuted. Replacement of one identifier by another includes all associated qual- 
ifiers, subscripts, and indexes. Use of the REPLACING option does not alter 
the text as it appears in the library. 

The library must not contain any COPY statements , 

The COPY statement may be written as follows; 

The COPY statement may be written as follows: 

ENVIRONMENT DIVISION. 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. > COPY statement, 

FILE-CONTROL. 

I-O-CONTROL. 



DATA DIVISION 



FILE SECTION 



FD file-name 

SD sort -file -name } COPY statement. 

01 data -name 



WORKING-STORAGE SECTION 

01 data-name COPY statement. 



REPORT SECTION. 



\ RD report-name f 
I 01 data-name \ 



COPY" statement. 



PROCEDURE DIVISION 

procedure-name. COPY statement 
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6.2 

SOURCE LIBRARY 

PREPARATION The information to be copied may appear on the system library file (*LIB) or 

on an auxiliary library file. These are mass storage files referenced through 
the system library directory (*DIR) or an auxiliary library directory. COBOL 
source library entries are placed on a library file using the MASTER library 
generation routine GLIB. GLIB is described in the MASTER Installation 
Manual. BCD COBOL source statements are written on the library in card 
image format and an entry is placed in the non-resident library subprogram 
directory usirg the $BCD card as follows : 

$BCD, library -name 
COBOL source statements 

Each Environment or Procedure Division paragraph, file description, record 
description, or report description entry must be placed on the library as a 
separate ^jBC-l) entry*. 

Library names may not exceed eight characters. 
Examples: 

$BCD, SCOMP 

source-computer , 3300 . 

$bcd, pay-file 

fd pay-file label record omitted 
data record is pay-card. 

$BCD, PAY-CARD 

01 PAY-CARD 

02 NAME PIC X(30). 
02 PAY-RATE PIC 9(5), 

$BCD,SECT-1 

MASTER-UPDATE SECTION. 
PARAGRAPH-1. 

OPEN INPUT... , 



$BCD, PAR-2 

PARAGRAPH-2 , 
CLOSE . . . 



The $BCD card always begins in card colxman 1; the COBOL source statements 
follow the COBOL coding sheet format (chapter 8) . 
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SOURCE PROGRAM PREPARATION, 
COMPILATION, EXECUTION 



7.1 

REFERENCE FORMAT The reference format is the standard method for describing COBOL source 
programs. It is described in terms of character positions in 80-charaeter 
source records read from the standard input file (INP) or from the dsi 
supplied by the user in the UCBL control card parameter, I = dsi. 

The rules for spacing given in the discussion of the reference format take 
precedence over all other rules for spacing. 

Each division must be written accordir^ to the reference format rules; and 
the divisions must be ordered as follows: 

Identification Division 
Environment Division 
Data Division 
Procedure Division 

Each source record is equivalent to one line of the COBOL coding sheet. This 
source line is divided into five areas as follows: 

Character Position Area 



1-6 


Sequence Number 


7 


Continuation 


8-11 


Area A 


12-72 


Area B 


73-80 


Identification 
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7.1.1 

COBOL CODING 

SHEET Specifications for the source program are written on COBOL coding sheets 

according to the formats contained in this manual. 

All division names, section names, and paragraph names start in area A of 
the coding sheet. E>i vision names are followed by a period and the rest of the 
line must be blank. Section names are followed by the word SECTION and a 
period. The remainder of the line is blank, except if the section is a DE- 
CLARATIVE, it may be followed by a USE or COPY sentence. Paragraph 
names are followed by a period and at least one space. The text may follow 
or may start in area B of the next line. 

The level indicators: FD, SD, RD, the level numbers: 01 and 77 begin in 
area A. They are followed by one or more spaces and the associated entry. 
All other level numbers begin in area B followed by a space and associated 
entry. 

Sequence numbers, if specified, are in the sequence number area. Program 
identification is placed in the identification code area. Lines may be broken 
at any convenient point , spaces may remain at the end of the line . When a 
word or a numeric literal is split between two lines, a hyphen must be specified 
in column 7 of the second line, (continuation area) . If a non-numeric literal is 
split between two lines, a quotation mark must be specified in area B of the 
second line in addition to a continuation hyphen in column 7 of the second line. 
In this case only, the blanks at the end of the first line are considered part of 
the literal. 
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COBOL Coding Sheet Rules 



Element 


Type 


Division 


Reference Area 


Remarks 




Division-name 


ALL 


Area A 


Name must be followed by a 
period; remainder of the line 
must be blank. 


Name 


Section-name 


ENVIRONMENT 

DATA 

PROCEDURE 


Area A 


Name must be followed by a 
space, the word SECTION, 
priority If specified, and a 
period; remainder of the line 
must be blank, or contain a USE 
sentence. 


Paragraph- 
name 


IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 


Area A 


Name must be followed by a 
period and at least one space. 
Text may follow on same Une or 
at column 12 on next line. 


Data 
Description 

Entry 


File Description 
Sort Description 
Eeport Description 


DATA 


Area A 


Descriptions begin with level 
indicator, FD, SD, or RD, 
two or more spaces separate it 
from data name. Clauses are 
separated by one or more 
spaces. 


Record Description 
Report Element 
Description 


DATA 


Area A or 
Area B 


Same as file description entry. 
Level number 01-49, 66, 77 and 
88. Only 01,77 entries may begin 
in Area A. 


Sentence 


First sentence 
of a paragraph 
or section 


IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 


Following period 
and 1 space after 
paragraph or 
section name , or 
on next line in 
Area B, 




All other 
sentences 


IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 


Following period 
and 1 space after 
the previous 
sentence. 


Sentences may be written in 
columns 12 through 72 only. 


Continued 
Elements 


Data description 
entry 


DATA 


Area B 


Line breaks may occur at any 
convenient point, with spaces at 
end of line if desired. If a word 
or literal is spUt between two 
lines, a hyphen must be specified 
in column 7 of the second line. 


Sentence 


IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 


Area B 


Non-Program 
Entry 


Sequence 
Number 


ALL 


Sequence Area 


Sequence number does not affect 
the object program; processor 
does check for correct sequencing. 


Program Ident- 
ification 


ALL 


Identification Area 


Identification information does 
not affect object program. 
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7,2 

COBOL CONTROL 

CARDS 



7.2,1 

UCBL CARD 



This card, which signals MASTER to call the COBOL compiler, is placed 
directly before the Identification Division of the source deck. It may contain 
up to nine parameters which specify input/output options provided by the 
compiler. 



(■■ 



$UCBL (p„p 



l'*^2" 



■V 



Parameters are free field, separated by commas; they have the general form: 

option = dsi 

The option must begin with a character I, P, X, L, M, C, O, or T. 

Additional characters precedir^ the equal sign are ignored; for example, L 
and LIST are the same parameter. If only the option is stated, COBOL will 
make a standard assignment for the option. The user is responsible for 
opening the file and giving it the proper dsi before callii^ COBOL. 



INPUT = dsi 
PUNCH = dsi 



XECUTE = dsi 



LIST = dsi 



MAP 



Source input file; if the parameter or file equation 
is omitted, the standard input file, INP, is assumed. 

Punch; dsi represents a data set identifier assigned 
to an output file or device. If the parameter is 
absent, no punch output is produced. If only P 
appears, binary output is produced on the standard 
punch file, PUN. 

Binary output for load-and-go ; dsi represents a data 
set identifier assigned to a read/write file . If the 
parameter is absent, no load-and-go file will be 
written. If only X appears, binary output will be 
produced on the standard load-and-go file, LGO. 

Source code list; dsi represents a data set identifier 
assigned to an output file or device. If the parameter 
is absent, no listing will be produced. If only L 
appears, the listing will be produced on the standard 
output file, OUT. 

Supplies a memory map in the Data Division only if 
L is also specified; the map is produced on the same 
dsi as the list. 
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OBJECT 



COPY = fdsi/ddsi 



Provides a listing of the object code generated for 
the program . A mnemonic operation code and data 
reference symbols as well as an octal representa- 
tion are produced for each instruction. This option 
may be specified only when LIST is specified. The 
object is produced on the same dsi as the list. 

Identifies library files; fdsi is the data set identifier 
of the file from which source COBOL statements are 
copied when COPY is specified in the source program, 
ddsi is the data set identifier of the directory used to 
locate the source statement entries on the library 
file. If C appears alone or is omitted, *LIB/*DIE 
is used when a COPY statement is encountered. 

luiaACo-tcb ciliuetmoia X ±\.n.^^jlj £3i^a.lOAxic:iiLO a-j. o i^Kj oo 

compiled; if omitted, all TRACE statements within 
the source program are ignored during compilation. 



7.2.2 

END PROGRAM CARD This card indicates the end of the source program to the COBOL compiler. 
It contains the specification END PROGRAM beginning in column 8, and 
should follow the last card in the Procedure Division of the source deck. 



7,2.3 

FINIS 



CARD 



The FINIS card signals the end of compilation and returns control to MASTER. 
It consists of the word FINIS starting in or to the right of column 8 . 



If only one COBOL program is submitted for compilation, the FINIS card is 
placed behind the END PROGRAM card. If more than one COBOL program 
is submitted for compilation, the END PROGRAM card for the first program 
is followed by the Identification Division for the second program, and so on. 
The FINIS card is placed after the last END PROGRAM card. FINIS is cor- 
rectly recognized only after an END PROGRAM card. 



7.2.4 

ENDATA CARD 



The ENDATA card signals that the end of data has been reached on the system 
input file (INP) or the input file on the card reader. It consists of the word 
ENDATA beginning in column 1, The ENDATA card should be inserted directly 
behind the user's data deck. If the deck has MASTER control cards between 
the end of the data deck and the standard MASTER end-of-file card, the 
ENDATA card preoeds the MASTER control cards. 
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7.3 

MASTER 

CONTROL CARDS 



MASTER control cards contain a $ punch in column one, followed by the 
statement name and parameters, separated by commas. Only cards required 
for a compile-only and a compile -and-execute run are described in this manual. 
A complete discussion of the options available under MASTER is found in the 
MASTER Reference Manual , Publication number 60213600. The UCBL card is 
a MASTER control card. 



7.3.1 

JOB CARD 



All jobs submitted for processing under MASTER require a JOB card. It sup- 
plies information to the installation accounting routine, identifies the program- 
mer, and sets a job processing time limit. 



/$JOB,c,i,t,lc,pc 



e Account number, 0-8 characters 

i Programmer identification, 0-8 characters 

t Job time limit in minutes for entire job maximum 1440 minutes; 
if blank, job time depends on the installation accounting routine 

Ic line count, specifies size of standard output file 

pc punch count, specifies size of standard punch file 

The c and i fields are mandatory. If one of the fields is blank, the job is 
terminated. The JOB card is written on OUT. 



7.3.2 

SCHEDULE CARD 



ASCHED, SCR=!c, CORE^, , . , 



Under MASTER $SCHED cards are optional; but at least one is required for 
COBOL users. Card format is free field and the entires may occur in any 
order. Blanks or commas may be used as separators, but are not required. 

The fields required by COBOL follow: 



SCE=x 



1-3 decimal digits describii^ number of segments of system 
scratch required to hold the intermediate output of the COBOL 
compiler and the user's scratch files during execution. SCE=8 
is the minimum required for compilation. 
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CORE=x 1-3 decimal digits describing the number of 512 word quarter 

pages required for the run. If object program is larger than 
the compiler, the user must reserve additional memory. 
CORE=35 is suggested as a minimum for normal compilation. 

Optional fields that may be required by the object program follow: 



CLASS= 



peq= 



E 



Emergency 



B Background 

I Input/Output (usual class for COBOL jobs) 

C Compute 

peq is a hardware type number , decimal digits to the right of = 
indicate the quantity of equipment of this type required to handle 
user files. Drives must be reserved for all Class B files. Unit 
record devices must also be reserved. 



7.3.3 

*DEF CARD 



/$*BEF(p^,p^,...) 



These cards are used to allocate, open, or close user files. Complete descrip- 
tions appear in the MASTER Reference Manual. *DEF cards are not required 
for COBOL compilation or execution except: 

User must OPEN a nonstandard file for INPUT, LIST, PUNCH, XECUTE, 
or COPY, and he must specify the dsi for the file on the $UCBL card. 

User must allocate all permanent online mass storage files which are not 
in existence when execution starts. Other mass storage files are allocated 
internally during program execution when the programmer includes the 
FILE LIMITS clause in the source program. OPEN source statements in 
the user program open all allocated files except a rerun dump file on mass 
storage, this must be opened with a *DEr card prior to object time. If 
the file to be allocated is blocked, the user must add eight characters to 
the block size for an I/O control system mass storage block header. 
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7.3.4 

TASK NAME CARDS 



J $name,dsi(p^,P2,Pg. 



This MASTEE control card is read by the job monitor, an operating system 
task. The file specified by dsi is positioned at its beginning and the first 
task is loaded. However, if the dsi is *LIB, the library directory is searched 
and the named task is located before it is loaded. 

On a compile and execute run, this card follows the FINIS card. 

Since only the name is checked for library tasks , the task name card will 
usually appear as follows: 







$name, LGO. 



7.4 

OUTPUTS FROM 

COMPILATION 



7.4.1 

SOURCE PROGRAM 
LISTING 



The COBOL compiler provides a printer listing of the source program . The 
lines are exact images of the cards in the source program deck. New line 
numbers are generated corresponding to the card image on the listing. The 
sequence numbers from the input cards are also printed. 



7.4.2 

ERROR 
DIAGNOSTICS 



Compiler diagnostics follow the source program listing and object code listing. 
Line numbers adjacent to the diagnostics serve as cross reference to the ori- 
ginal source line. Data names appear in coded form in the diagnostics. The 
user can refer to the Data Division portion of the source listing where a code 
was generated for the data name of first encounter. 

The only errors recognized by the compiler are those in which the user has 
broken rules of the COBOL language; it does not recognize faulty programming 
logic, unless this also produces a language error. 

All compiler diagnostics are listed in Appendix I. 
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7.4.3 

SYMBOLIC LISTING 
OF OBJECT 
PROGRAM 



When O is specified on the $UCBL card, an object program listing is printed 
followir^ the source program listing. For each instruction generated, a 
mnemonic operation code and data reference codes are presented. An octal 
representation of each instruction is also printed. 



7.4.4 

OBJECT PROGRAM 



When X or P is specified on the COBOL control card, the object program is 
written on load-and-go or standard punch files. The decks produced may be 
executed in the usual manner. 



7.4.5 

DATA MAP 



When M is specified in combination with L on the COBOL control card, a 
data map of the information described in the Data Division of the source 
program is printed following the source program listing. 



7.5 

RERUN/RESTART 

PROCEDURES 



7.5.1 

RERUN 



When the REEUN option of the I-O-CONTEOL paragraph is specified in the 
source program , special control cards are required to create a rerun dump 
file and to produce absolute task dumps which may later be used to restart 
the job. Required control cards are listed below. Cards to allocate object- 
time mass storage space for user files are not shown: 



$JOB,. . . 
$SCHED, . . . 
$*DEF(A,...) 



$*DEF(^,W,rdsi,...) 
$xxxx,idsi 



Allocate the rerun dump file (mass storage 
only) ; block size must be at least 256 characters 

Open the rerun dump file 

Call task xxxx from idsi (INP, LGO, etc.) 



If the rerun dump file is on tape, the allocate card is not required and the open 
card will contain U as the first parameter. Only one rerun dump file may be 
opened for a given job. 
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7.5.2 

RESTART To restart a program from one of the dumps on the rerun dump file, the 

following cards are required: 

$JOB, . . . 

$SCHED, . . . Must have same parameters as original 

$*DEF( ,W,rdsi, . . .) Openthe rerun dump file 

$xxxx,idsi(rdsi,n) Task name card 

xxxx Task name 

idsi dsi of input file (INP, etc.) 

(rdsi, Restart from rdsi; parameter passed to COBOL restart 
routine 

n) Number of rerun dump to be used for restart; n = 1-9999. 

If n is omitted, the last dump on the file will be loaded. 
The comma must be present. 

Mass storage ALLOCATE cards should not be included in a restart run of the 
program . 

The restart routine re-positions all files to their locations at the time rerun 
dump was taken. The rerun dump file is poritioned so that the next dump 
follows the one used to restart the program. If input data came from system 
input (INP) the entire data deck must be reloaded into the card reader. 
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7.6 

SAMPLE 
COBOL DECKS 



7.6.1 

COMPILE ONLY 



COMPILE ONLY With LIST and TRACE Options 



77 



L 



FINIS 



/ 



y COBOL 



Source Deck 



$UCBL(L,T) 



/SSCHED, CORE=35, SCR=10 
I 



/ $JOB, 723-M, JHL, 10, 100 
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7.6.2 

COBOL SOURCE 
DECK 



COBOL SOUECE DECK 



/ END PROGRAM 
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7.6.3 

COMPILE AND 
EXECUTE 



COMPILE and EXECUTE With LIST and Disk Object Time CLASS A Storage 



77 
88 



$*DEF(R,W, MFC, INVENTORY, l.XYZ.ZYX, UNUSED) 



ENDATA 



Data cards 



$X, LGO 



/ COBOL Source Deck 



$UCBL(L,X) 



$5000, 671231, S,S, 853) 



$*DEF(A,W, MFG, INVENTORY, 1, XYZ, ZYX, 50 
I 



$SCHED, CORE=40, SCR=10 



/ $JOB, 6181^ CCC, 15, 1000 
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7.6.4 

RESTART 



RESTART Rerun DUMPFILE on Disk, RESTART at Dump 5 

I 



77 
88 



It, 



Data cards 

ffi 



C 



Program binary deck 



/$X,iNP(RRUN,5) 
^$*DEF(0,W,RRUN,JWR,RRDUM P,i,ABC,'0) 
^/1*DEF(0,W, PROG, JWR, PRG, l .XYZ.I) 
/ $SCHED, CORE=35, SCR=10, CLASS=I, 853=2 



/$JOB, 7818, DWR, 20, 2000 
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7.6.5 

COMPILE AND 
EXECUTE 



COMPILE AND EXECUTE 
With LIST, Memory Map, and Tape Object- Time Storage 



88 



/Data cards 



( 



$X, LGO 



(1 



L 



L 



COBOL Source Deck 



$UCBL(L,M,X) 



$SCHED, CORE=35, SCR=10, CLASS=I, 604=4 
/$JOB, 4112, JRH, 15, 2000 
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7.6.6 

EXECUTE 



EXECUTE With Object- Time Mass Storage and BERUN on Mass Storage 

/tt 



88 



Data cards 



'^END 



i Binary Deck 
/$X,INP 



/ 



/ 



/ 



I 



$*DEF(0, W, RRUN, JWR, RRDUMP, , , O, S, 1) 



$2048, 1000,,,, 853) 



$*DEF(A,W, JWR.REDUMP, , , , 



$1000, 8000, 671115, S,S, 853) 



/$*DEF(A, W, MFG, SPARE PARTS, 01, MFX, XYZ , 

, 1 . I 

/$SCHED,CORE=30,SCR=10,CLASS=I, 853=2 

/$JOB, 7192, JWR, 20 , 2000 
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APPENDIX SECTION 



SAMPLE PROGRAMS 



The sample program (I^R-UPDT) listed on the following pages is a Program 
Simimary Report (PSR) update program . Its principal functions are to : 

• Maintain the PSR master file as a random access mass storage file. 

• Periodically update the master file. 

• Extract information from the file. 

• Produce reports showing, by product set, the number and status 
of current PSRs. 
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I 

IS3 



Oi 

o 
to 
ts 

o 
o 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
0C017 
00018 
00019 
0C020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 



000011 

Drooi2 
Drool 3 

000014 



PSR-UPDT 
TDENTIFICATICN 01 

program-io. PSR-IJ 
author. das-ddj. 

REMARKS. 

ENVIRONMENT DIVIS 
CONFIGURATION SEC 
SOURcE-CCMPUTIiR. 
C8JECT-CCMP0TER. 
SPECIAL-NAMES. 

SYSTEM-GUTPUT 
INPUT-OUTPUT SECT 
FILE-CONTROL. 

SELECT OtiT-FI 

SELECT INFILE 

SELECT PRIM-S 

ACCESS MG 

ACTUAL KE 

SELECT PSR-FT 

ACCESS MC 

ACTUAL KE 

SELECT NUMBER 

ACCESS MG 

ACTUAL KE 

SELECT SCRT-F 

SELECT SGRT-0 

SELECT P-S-LI 

ACCESS MO 

ACTUAL KE 

SELECT N-FILE 

ACCESS MO 

ACTUAL KF 

OATA DIVISION. 

FILE SECTION. 

FD OUT-FILE 

LAREL NEcOf^OS 
REf'CRTS ARrJ 
FD TNFILE-CAHO 
LAREL RECC.'^O 
RATA R£C0RO T 
01 INREC. 

02 CAKO-TYPF 
88 LE'JAL 
02 FILLER 



VISION. 
POT, 



ION. 
TION. 
3300. 
3300. 

IS OUT. 
ION. 

LE ASSIGN TO SYSTEM-OUTPUT, 
-CARD ASSIGN TO SYSTEM-InPUT. 
tC-LIST ASSIGN TO DISK LIST 
OE IS RANDOM 

Y IS PRIM-KEY. 
t-E ASSIGN To DISK PSR 
OE IS RAiNiDOM 

Y IS PSR-KEY» 
-FILE ASSIGN TO DISK PNUM 
UE IS RANDOM 

Y IS NUM-KEY. 

ILE ASSTUN TO SCRATCH SCR. 
UT ASSIGN TO TAPE 05. 
ST ASSIGN TO DISK LST 
OE IS RANDOM 

Y IS P-KEY. 
ASSIGN TO DISK PNM 

UE IS SEQUENTIAL 

Y IS N-KEY. 



ARE OMiTTEn 
tLETF-RFt^CKT-l . LIST-PSR-NUM-REPORT, 

IS OMITTtO 
is INRFC, 



PIC X. 
3DE VALUES *A;S, 
PIC X(79) , 



*C** *D*^ *L** tS*t #R^, 



05 

o 

to 

to 

o 
o 



I 



OOC^A 




00045 




OOO'^b 




00047 




00048 




00049 




00050 




00051 




00052 




00053 




00054 




00055 




00056 


000016 


00057 


DQ0017 


00058 


DC0018 


00059 


000019 


00060 


d66o2o 


00061 


000021 


00062 


Do60?2 


00063 


000023 


00064 


d66o?4 


00065 


000025 


00066 


000026 


00067 


o66o?7 


00068 


000028 


00069 


000029 


00070 


000030 


00071 


000031 


00072 


000032 


00073 


000033 


00074 


000034 


00075 


000035 


00076 


000036 


00077 


000037 


00078 


000038 


00079 


000039 


00080 


000040 


00081 


000041 


00082 


D00042 


00083 




00084 




00085 




00086 




00087 




00088 





FD 



01 



01 



01 



01 



FD 



PRIM-SEC-LIST 
BLOCK CONTAINS 2<^ RECORDS 
RECORD CCNTAT.NS 82 CHARACTERS 
LAREL RECORD IS STANDARD VALUE OF 

ID Is )'LIST-FILES5' 

OWNER IS ^PSR*s 

ACCESS-PRIVACY IS *f^PSf\* 

MODIFICATION-PRIVACY IS ^MPSR* 
FDlTION-NUMeEH IS 01 
OATA RtCCRDS ARE 

HEADER-RECORD. PR IMARY-RECCRD» 

SECCNDARY-RECOKQ, EMPTY-RECORD, 
HFADER-RECCKO. 
q2 FCRwAHn-LiNK Pic y(l2). 

8ACKWAHP-LINK *^IC 9(l2). 

HEAUEi^-LI'^iK PiC 9(12) . 

HEADFR-LPV-MAMF. 

03 SUPP-LtVEL PlC y. 

03 HEADEW-NAMF piC X(21). 

H£ADEH-SA^ 



02 
02 

02 



02 



P 1 C 9(12). 



pRiMARY-RECONi). 

02 FILLFH plC X(24) . 

02 PROOUCT-NAME PlC X(10). 

02 MASTER-SAK p(C 9(12) . 

02 MSCS-SAK PiC 9(12) . 

02 RTS-SAK PIC 9(12) . 

02 FILLER PiC X(12). 

seccndahy-record. 

02 FILLER pIC X(24) . 

02 PSR-NUM3e;P PIC 9(S). 

02 PSR-SAK PiC 9(12) . 

02 PRCU-NA>-lfc: PIC X(10) . 

02 FILLER PiC XX. 

0? OP-SYS-NlAMt PIC X(6) . 

02 LIST-LIT pIC X(8) . 

02 FILLER PIC X(15) . 

F>^PTY-RECCRD. 

02 EMPTY-SAK PIC 9(12) . 

02 FILLER PIC X(70) . 

PSR-FILE 

RECORD CONTaTMS 51? CHARACTERS 

LABEL RECOUD iS STANOAryQ VALuE 

ID Is JiPS-^-FlLES;* 

OWNER IS *9SH* 

ACCESS-PPIVACY IS ^ApSR* 



> 

I 



o 

to 

o 

o 



00089 




00090 




00091 




00092 


nc6c44 


00093 


000045 


00094 


Df'0046 


00095 


DC0047 


00096 


DC6C4R 


00097 


000049 


00098 


000050 


00099 


000051 


00100 


D00052 


00101 


000053 


00102 


0^5054 


00103 


000055 


00104 


000056 


00105 


DC6057 


00106 


000058 


00107 


000059 


00108 


000060 


CC109 


D0OO61 


00110 


000062 


00111 


DC0063 


00112 


000064 


00113 


000065 


00114 


000066 


00115 


000067 


00116 


000068 


00117 


000069 


00118 


000070 


00119 


000071 


00120 


000072 


00121 


0^0073 


00122 


DO0074 


00123 


Oc6o75 


00124 


000076 


00125 


00007 7 


00126 


n66o78 


00127 


000079 


00128 


DC0080 


00129 


000081 


00130 


000082 


00131 


nnoc83 


00132 


000084 


00133 


000085 



MCDIFICATICN-PRIVAC 
FDlTlON-NUMdEH IS 02 
DATA RECCPO IS PSR-FILE 

01 PSP-FILE-HcAQER, 

0? NEXT-EMPTY PIC 
02 FILLER PIC 

Ol PSP-FILE-REC, 

02 PSH-FlL^-:i-MCVE. 



Y IS 36MPSR* 

-HEADER* PSR-FILE-REC. 

9(12). 
X(500). 



02 
0? 



03 
03 
03 
03 
03 
03 



PSh-nG 

DATE- IN 

P«CL)-NM 

VERSICN-NC 

PKOO-NC 

OP-SYb-1 



03 MF.f(-\ 
03 CP-SYS-2 
03 VER-zi 
03 CP-SYS-3 
03 VE«-3 
03 REPCRT-CRS 
03 EQUAL-PSR 
02 PSR-FlLt2-MCVF. 



9(5) . 
X(8) . 
X(10). 

PIC 9V9. 
X(4) . 
X. 

PIC 9V9. 
X. 

PiC 9V9. 
X. 

PIC 9V9. 
PIC X(14) . 
PIC X<5) . 



PiC 
PIC 
PIC 

PIC 
PTC 

PiC 

PIC 



03 
03 



03 
03 



03 



PIC 
PiC 
PIC 
PIC 
PIC 

X. 

999. 



03 CUT-OTD PIC X(ft) . 
03 SCHEO-IMPL. 

04 SYS-A 

04 \/ER-A 

04 5YS-B 

04 VER-8 

04 SYS-C 

04 VKK-C 

TESTFU PIC 

SUH-nC PIC 
DESCRIPTION. 
03 DESC 
PSH-FILE3-MCVE. 
03 ASS-or PI 

PSP-AK-FCRW PI 

PSh«-AK-8ACK pi 
03 CP-KEYl. 

04 MASTER-LIST 

04 MSOS-LIST-A 

04 RTS-LIST-AK 

0P-KEY2 REdEFIN 

04 OP-KEY PIC 
03 FILLEH PI 



PiC 9V9. 



9V9, 
9V9. 
9V9. 
9V9, 
9V9. 



PIC X(73) OCCURS 5 TIMFS. 



C 9(4) , 
C 9(12). 
C 9(12) . 

AK PIC 9(12). 
K PIC 9(12). 

PIC 9(12). 
ES CP-KEYl. 
9(12) OCCURS 3 
C XX. 



TIMES. 



05 
O 

to 
to 

«o 

t)^ 
o 
o 



> 

en 



00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 



FD 



D00087 
DOOOflfl 
000089 



D00091 

nc6o9? 

Dq6093 
000094 

000095 
000096 
D66g97 
DQQ098 
DC0099 
DOOlOO 
DCQlOl 
D00102 
D00103 
D00104 
d661C5 
000106 
000107 
000108 
000109 
DOQllO 
DOQlll 
000112 
000113 
000114 
000115 
DQgll6 
D00117 
000118 



01 



FD 



01 



01 



NUMBER-FILE 

BLOCK CONTAINS 42 RECORDS 

RECORD CONTAINS 12 CHARACTERS 

LABEL RECOWO IS STANDARD VALUE CF 

ID IS <PS^l-LIST* 
OWNER IS ?*PSR* 

ACCESS-PRIVACY IS j'APSR;' 
MCDIFICATICN-PRIVACY IS iMPSR?* 

EDTTICN-NUMBEK IS 03 

DATA RECOHU 15 NUMBFR-RFC 

NIJMBER-HEC. 

02 NUM-BLK PIC 9(7) . 

02 NUM-cHAt^ PIC 9(5) . 

SO^^T-CUT 

LAREL HECCPD IS OMITTED 

rata records are 

rec-a» «ec-c, rec-d* 
rec-a. 



REC-L. REC-U, REC-R. 



02 
02 
02 



02 



PIC 
PTC 



Ol REC-C. 



CODE-ALPHA 

CCUE-iMUM 

REC-A-MGVf-l, 

03 PSW-iMUM PIC X(5) 

03 FILLER PIC X(52) 

FILLER 



X. 
9. 



PIC X(21) 



02 FILLER 

02 LCbGFu-CUT 

02 SCHEDUL£D-IMPL. 



PiC 
PIC 



X(7) 
X<8) 



02 
02 
02 
02 



03 CP-SYSTEM-1 PIC 99. 

03 V£«S-i PIC 99. 

03 CP-SYSTEM-2 PIC 99. 

03 VERS-ei pIC 99. 

03 CP-SYbTEM-3 PIC 99. 

03 veRS-3 piC 99. 

TEST PIC X. 

SUH-NUM PIC 999. 

PSR-EQ PIC X(45) . 

FILLER PIC X(4). 

REC-D. 

02 FILLER PIC XX. 

02 DELETE-FTELD OCCURS 5 TIMES. 

03 DELETE-PSR-NC PIC 9(5). 

03 DELETE-REASCN PIC X(9). 

03 DELETt-LINKED PIC X. 
02 FILLER PIC XXX. 



I 



o 
^^ 
pa 

o 
o 



00179 

00180 

00181 

00182 

00183 

00184 

00185 

00186 

00187 

0018B 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 

00220 

00221 

00222 

00223 



DC0119 
000120 
066121 
000122 
D00123 
000124 
Dc6l25 
000126 

d66i?7 

000128 
000129 
000130 

000131 
D00132 
000133 
000134 
000135 
000136 
000137 
DQQ138 
000139 
Dq6140 
000141 



0rol43 
000144 
000145 
000146 
000147 



PIC XX. 
PIC X(10) . 
PIC X(6). 
PIC X. 
PIC X(61). 

PIC X. 
PIC X(15). 
PIC 9(5) . 
PIC X(59) . 



DC0149 



01 REC-L. 

02 FILLE« 
02 PRCJIJCT-LEVEL 
62 CP-SYS-LEVEL 
02 SUHPCWT-LtVEL 
02 FILLER 
01 REC-U. 

02 FILLER 
02 U-FIELD 
02 U-BIAS 
02 FILLED 
01 REC-R» 

02 FILLFR I^IC X. 
02 CS-FIELO. 

03 CS-FTELUl. 

04 CS-FIELD2 PIC X<4> . 
04 0S-FIELD3 PIC X. 
03 GS-FIEL04 PIC X. 
02 PftCO-FIELO PIC X(13) . 
02 WHICh-FIELO PIC XdO). 
02 AGE-FIELO PIC X(5). 
02 QUANTITY-FIELD PiC X(7). 
02 FILLER PTC X(48). 
SO SORT-FILE 

RECORD CCNTAIiMS 80 CHARACTERS 
DATA RECORD IS SCRT-FILF-REC. 
01 SCRT-FILE-KtC. 

02 SCRT-CCDE-1 PlC X. 
02 SORT-CCOE-2 PiC X. 
02 SCRT-CODF-3 PiC X(5). 
02 FILLER PIC X(73). 
FD N-FILE 

BLOCK CONTAINS 42 RECORDS 
RECORD CONTAINS 12 CHARACTERS 
LABEL HECCHDS ARE STANDARD VALUE OF 
ID Is /TEMPCRY-PSR-LIST^ 
OWNER IS 5<PSR»s 
ACCESS-PRIVACY IS ^APSRjS 
MCnlFlCATICN-PRIVACY IS #MPSR* 
FDTTlCN-NUMbErt IS 04 
OATA RECCRt) IS T-RFC-1. 
01 T-REC-1 PIC 9(12) . 

FO p-<;-LlST 

BLOCK CONTAINS 24 RECORDS 
RECORD CONTAINS 82 CHARACTERS 



o 
to 
to 

U5 
)^ 

O 

o 



I 



00^2-^ 




00225 




00226 




00227 




00228 




00229 




00230 




00231 


D00151 


00232 




00233 


d66i53 


00234 


nQ6i54 


00235 


000155 


00236 


000156 


00237 


000157 


00238 


000158 


00239 


000159 


00240 




00241 


000160 


00242 




00243 


000161 


00244 




00245 


000162 


00246 




00247 


d66163 


00248 




00249 


D66164 


00250 




00251 


Dc6l65 


00252 




00253 


000166 


00254 




00255 


D66167 


00256 




00257 


066I68 


00258 




00259 


D00169 


00260 




00261 


000170 


00262 




00263 


000171 


00264 


000172 


00265 


■ D0O173 


00266 


d66174 


00267 


000175 


00268 


000176 



01 



LAREL RECORDS ARE STANDARD VALUE CF 
ID Is TtTEi^PCRY-LIST-FlLEjt 
OWNER IS *PSH* 
ACCESS-PRIVACY IS *^PSRt 
MCUIFICATICN-PRIVACY IS ;*MPSR;^ 
EDITION-NUMBEK IS 05 
DATA RECORD IS T-REC-2. 
T-REC-2 PIC X(82). 
WCRKlNO-STORAiiE SECTION. 
77 REL-FILES PIC XX. 
77 CTR PiC 99, 
77 OP-CTR PICTURE IS 9. 
77 IDENT-CTH PICTURE IS 99. 
77 ChECKED-OUT PICTURE IS X(l9). 
77 STARS PIC X(6) VALUE * **** *• 
niAGNCSTlC-U PIC X(44) VALUE 
)*ILLE6AL UTILITY FUNCTION56. 
DIAGNOSTlC-C PIC X<4^) VALUE 

sSlLLEGAL CARD CCOE?'. 
DIAGIMOSTIC-P PIC X(44) VALUF 

jSNEW PRODUCT NAME — NOT ALLOWED*!. 
niAGNCSTlC-Ll PIC X(44) VALUE 
?6LPVEL CHANGE - NON-EXISTENT OPERATING SYSTEM*. 
0IAGN0STIC-L2 PIC X(44) VALUE 

*LEVEL CHAi^IGE — NON-EXISTENT PRODUCT NAME*. 
niAQNCSTlC-Pl PIC X(44) VALUE 
gSpSR NUMBER — LESS THAN RlAS;«. 
PIC X(44) VALUE 
— NON-EXISTENT FcR DELETE*. 
PIC X(44) VALUE 
9«PSR NUMBER — EXISTING FcR ADD;t, 
niAGNOSriC-S PiC X(44) VALUE 

;tILL£GAL SEQUENCE NUMBER*. 
DIAQNOSTIC-O PIC X(44) VALUE 

*NC OPERATING SYSTEMjt. 
DIAGNCSTIC-El PIC X<44) VALUE 

jtEQUATEi) PSR NUMBER — NOT IN FILE, IGNORED*. 
0IAGNCSTIC-P4 PIC X(44) VALUE 

;4PSR NUMBEH — NCN-EXISTEnT FcR CHANGE*. 



77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 



77 
77 
77 
77 
77 
77 



nlAGN0STlC-P2 

;«PSR NUMBER 
nlAGN0STlC-P3 



BKl-CHO 

hgld-psr 

PSR 

ALPHA-SAVE 
REAOY-PSR 
READY-LIST 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



9(12) 
9(5) « 
9(5). 
X. 

9(12) . 
9(12). 



VALUE 100000, 



> 

I 

00 



05 

o 

CO 

^^ 

to 

*- 



00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 



D00177 
000178 
000179 
D6q180 

Dooiai 

000182 
000183 
000184 
000185 
000186 
000167 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000190 
000200 
000201 
0*^0202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 

000211 
000212 
066213 
0QQ214 
000215 
000216 
D00217 
000218 
066219 
000220 



77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
01 
01 
01 

01 



01 



01 



01 



01 
01 
01 



GO-KEY 
S4VE-SAK 

oelete-sub 
back-save 

RACK-SAVE 

I 

TEM-KEY-l 

TEM-KEY-2 
TEM-KEY-3 
TEM-KEY-4 
TEM-KEY-S 
TEM-KEY-6 

TEM-KeY-7 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 

Pic 

PIC 
PIC 
PIC 
PIC 



TEM-KEY-8 PIC 9(7). 
RPPT-HEADING PIC X(l 
0S-NJUM6ER PIC 9. 
TOOAYS-OATE PiC 9(4) 
niFF-DATE PIC 9(4). 
OESC-CTR PIC 9. 
TEM-hCLD-1 PIC 
TIME-STORE PIC X(8) . 
nATE-STQRE PIC X{B) . 
P-KEY PIC 9(12) . 
N-KEY pic 9(12) . 
LIST-AREA-FIELD. 
02 LIST-AREA OCCURS 
FI9ST-0ATE. 
02 MM 

FILLER 

OD 

FILLFH 

YY 
MMTAB. 
02 FILLER 

^000031059090120 
TAR REUtFINES MMTAH. 
02 MTAB 
IJP-KEYI. 

02 U-BLK PIC 9( 
02 U-CH PIC 9( 
tJP-KEY REDEFINES UP- 
R-C PIC 

R-Cl REDEFINES B-C. 
02 8LK PIC 
02 CHAR PIC 



9. 

9(12) 

9. 

9(12) 

9(12) 

9. 

9(12) 

9(12) 

9(12) 

9(12) 

9(12) 

9(12) 

9(]2) 



7) . 



X(82) . 



02 
02 
02 

02 



6 TIMES PICTURE IS 9(6). 

PiC 99. 
PlC X. 
P[C Q9. 
PiC X. 
PIC 09. 

PlC X(36) VALUE IS 
151181212243273304334*. 

PiC 999 OCCURS 12 TIMES, 



7) . 






5) . 






KEYl 


PIC 


9(12) 


9(7) V999, 




9(7) . 


k 




999. 







o 
to 

l\3 

to 
I*' 

o 
© 



> 

I 

to 



003U 


D00221 


00315 


000222 


00316 


D66?23 


00317 


D0Q224 


00318 


000225 


00319 


DC0226 


00320 


000227 


00321 


000228 


00322 


066229 


00323 


000230 


00324 


000231 


00325 


000232 


00326 


000233 


00327 


000234 


0032fl 


D66235 


00329 


D6q236 


00330 


000237 


00331 


000238 


00332 


000239 


00333 


000240 


00334 


000241 


00335 


000242 


00336 


000243 


00337 


000244 


00338 


000245 


00339 


000246 


00340 


DQ0247 


00341 


000248 


00342 




00343 


000250 


00344 


000251 


00345 


000252 


00346 


d6q253 


00347 


0Q0254 


00348 


000255 


00349 


000256 


00350 


000257 


00351 


066258 


00352 


000259 


00353 


006260 


00354 


D66261 


00355 


d66?62 


00356 


D6q263 


00357 


000264 


00358 


000265 



01 



01 
01 



01 
01 



01 
01 



01 



01 



01 



01 



PRIM-KEYI. 

02 PRIM-KEY-I PIC 9(7). 

02 PRIM-KEY-2 PIC 9(5), 

PRIM-KEY REDEFINES PRIM-KEYI PIC 9(12). 

PSR-KEYl, 

02 PSR-KEY-1 PIC 9(7). 

02 PSR-KEY-2 PIC 9(5). 

PSR-KEY REDEFINES PSR-KEYl PiC 9(12). 

NUM-KEYl, 

02 NUM-KEY-l PIC 9(7) . 

02 NUM-KEY-2 PIC 9(5) , 

NUM-KEY REDEFINES NUM-KEYl PiC 9(12), 

HEAOER-HECCRD-STORAGE. 



02 empty-heau-rec pic 
02 plh-sak pic 

02 PRIM-EXPAND piC 
02 H-H-S PIC 

02 H-R-S-SAK PiC 

psr-file-header-stcrage. 

02 EMPTY-PSR-FILE PiC 
02 FIRST-PSR-ENT PiC 

02 psr-expand pic 

02 P-K-H-S-H pIC 

NUMBER-FILE-STORAGE. 

02 NUM-EXPAnU pIC 

02 BIAS PIC 

PSR-EQT. 

02 EQUAL-PSRS Pic 9(5) 

indexed by psr 
header-reccrdt. 



9(12) . 
9(12). 
9(12). 
X(34). 
9(12). 

9(12). 
9(12). 
9(12). 
X(476). 

9(7) . 
9(5), 

OCCURS 
■INDEX. 



9 TIMES 



VALUE * LIST HEADER!*, 



02 FCRWARD-LINKT PiC 9(12) 

02 BACKWAHD-LINKT pIC 9(12) 

02 HEADEH-LINKT pIC 9(12) 

02 SUPP-LEVELT piC X. 

02 HEAOeR-NAMET piC X(33) 

02 HEAOFR-SAKT pIC 9(12). 
Oi PRIMARY-RECCRQT. 

02 FOH-LINKT pic 9(12) . 

02 BAK-LINKT pic Q(12) . 

02 PRODUCT-NaMET PIC X(10). 

02 MASTEH-SAKT pIC 9(12). 

02 MSCS-SAKT PiC 9(12). 

02 RTS-SAKT pIC 9(12). 

02 HEAO-SAKT pic X(12). 
Ol RPrIMARY-RECCRDT REDEFINES PRIMARY-RECCRDT. 



I 



<Si 

o 

l>3 
(D 

O 

o 



00359 


000266 


00360 


000267 


00361 


000268 


00362 


000269 


00363 


000270 


00364 


000271 


00365 


000272 


00366 


000273 


00367 


000274 


00368 


000275 


00369 


000276 


00370 


Dq6277 


00371 


000278 


00372 


000279 


00373 


000280 


00374 


DQ6281 


00375 


Oq6282 


00376 


DO0283 


00377 


D00284 


00378 


000285 


00379 


000286 


00380 


DQ0287 


00381 


000288 


00382 


000289 


00383 


000290 


00384 


066291 


00385 


000292 


00386 


000293 


00387 


000294 


00388 


D66295 


00389 


000296 


00390 


000297 


00391 


000298 


00392 


000299 


00393 


000300 


00394 


DQ0301 


00395 


000302 


00396 


000303 


00397 


000304 


00398 


000305 


00399 


000306 


00400 


000307 


00401 


D0O3O8 


00402 


000309 


00403 


D00310 



01 



01 



02 

02 

02 

SECC 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

PSr- 

02 



FILLER PIC X(34). 

R-SAkT pic 9(12) OCCURS 3 TIMES. 

FILLER PIC X(12). 

NDARY-WECCRDT. 

FORWARU-Lt^T piC 9(12). 

BACKWARD-LKT PlC 9(12). 

PSH-NUMBEHT PIC X(S) . 

PSR-SAKT PIC 9(12) . 



PRCD-NAMET 

FILLER 

CP-SYS-NAMET 

FILLER 

LIST-LITERALT 

HEADER-ST 

FILE-RECT. 

PSR-FILEI-MOVET. 

psh-not 

DATE-INT 

PROD-NMT 

VERSION-NCT 

PROD-NOT 

CP-SYS-IT 



X(10). 
XX. 
X(6) . 

X X 

X(9) VALUE 

9(12) . 



* PSR-LINK#. 



03 
03 
03 
03 
03 
03 



02 



02 
02 



03 VER-lT 

03 0P-SYS-2T 

03 VER-2T 

03 CP-SYS-3T 

03 VER-3T 

03 REPCRT-GRGT 

03 EQUAL-PSBT 

PSR-FILE2-M0VET. 

03 CUT-DTDT 

03 SCHED-IMPLT. 
04 SYS-AT 
04 VER-AT 
04 SyS-BT 
04 VER-BT 
04 SYS-CT 
04 VER-CT 

03 TESTED-T 

03 SUM-NOT 

OESCRIPTIONT. 

03 DESCT 

PSR-FIL3-M0VET, 

03 AB-DTT 

03 PSR-AK-FORWT 



PIC 
PIC 
PIC 
PIC 
PIC 
PiC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



9(5). 

X(8), 

X(10) 
9V9. 

X(4), 
X. 
9V9. 

X. 
9V9. 

X, 
9V9. 

X(I4) 

9(5). 



PIC X(8). 

PIC 9V9. 
PIC 9V9. 
PIC 9V9. 
PIC 9V9. 
PIC 9V9. 
PIC 9V9. 



PIC 
PIC 



X. 
999, 



PIC X(73) OCCURS 5 TIMES, 



PIC 
PIC 



9(4), 
9(12). 



OS 

o 


00404 


D00311 


to 

09 


00405 


Dgo312 


to 


00406 


000313 


o 


00407 


0Q0314 




00408 


D00315 




00409 


000316 




00410 


D0Q317 




00411 


D00318 




00412 


000319 




00413 


000320 




00414 


000321 




00415 


000323 




00416 


000324 




00417 


000325 




00418 


000326 




00419 


000327 




00430 






00421 






00422 






00423 






00424 






00425 






00426 






00427 






00428 






00429 






00430 






00431 






00432 






00433 






00434 






00435 






00436 






00437 






00438 






00439 






00440 






00441 






00442 






00443 






00444 






00445 






00446 




> 


00447 




1 


00448 





INDEXED BY INOX-STCR. 



IS qV9 OCCURS 3 TIMES, 



60 LINES 



03 PSR-AK-BACKT PiC 9(12). 

03 MASTE«-LIST-AKT PlC 9(12). 

03 MSOS-LIST-AKT PiC 9(12). 

03 RTS-LIST-AKT pIC 9(12). 

03 FILLEH PiC XX. 

01 SyS-OP-1. 

02 SYS-OP PICTURE IS X(6) OCCURS 3 TIMES. 
Ol NC-VER-1. 

02 NC-VER PICTURE IS 9V9 OCCURS 3 TIMES. 
01 iDENT-PSrt-STOR. 

02 STOH-IDENT OCCURS 10 TIMES 

03 STCR-lDENT-1 PiC X. 

03 FILLER PIC X, 

03 STCh-IOENT-2 PlC 9(5), 
Ol PROn-VER-1. 

02 prcu-ver picture 
report section, 
rd delete-repgrt-1 
page limit is 

HEADING 10 

FIRST DETAIL 1?. 
01 LINE NUMBER IS 10 

TYPE IS PAGE HEADING 

COLUMN NIHBER IS 37 

PICTURE IS X(17) SOURCE IS REPT-HEADING, 
Ol REPORTEO-DELETE 

TYPE IS nETAIL. 
0? LINE NUMBER IS 1? 

COLUMN NUMBER IS 73 

PICTURE 13 X(8) 

SOURCE IS SYSTEM-DATE. 
02 LINE NUMBER IS 15 

COLUMN NUl^BER IS 10 

PICTURE IS X(10) VALUE IS ''PSR NUMBERS. 
02 COLUMN NUMBER IS 22 

PICTURE IS 9(5) 

SOURCE IS PSR-NCT. 
02 LINE NUMBER IS 17 

COLUMN NUMBER IS 10 

PICTURE IS X(7) VALUF 
02 COLUMN NUMBER IS d2 

PICTURE IS X(10> 

SOURCE IS PROD-NMT. 
02 COLUMN NUflBER IS 35 

PICTURE IS X(U) VALUE Is ^SVERSICN NUMBFR;*, 



IS ?tPRCDUCT5t. 



o 
to 
to 



00449 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 
00484 
00485 
00486 
00487 
00488 
00489 
00490 
00491 
00492 
00493 



02 

02 

02 

01 CP- 

02 

02 

02 
02 

Ol PPT 
02 

02 



02 

PIC 
02 



02 
02 

01 NOT 
02 



Is ^OPERATING SYSTEMS. 



(OP-CTR) , 
61 

VALUE Is 
77 

(CP-CTR). 



AVERSION NtJM8ER*. 



COLUMN NIJ"^8EH IS 51 

PICTURE IS 9.9 

SOURCE IS VERSICn-NCT. 

COLUMN NUMBER IS S7 

PICTURE. IS X(14> VALUE IS ^PRODUCT NUMBER?*. 

COLUMN NlliVlBER IS 73 

PICTURE IS X(4) 

SOURCE IS PRCD-NCT. 
SYS-RPT 

TYPE IS DETAIL. 

LINE NUMHtR IS PL^JS ? 

COLUMN Nllf-IBER 35 

PICTURE lb X(lft) VALUE 

COLUMN Ny^iBER IS 53 

PICTURE IS X(6) 

SOURCE IS SYS-CP 

COLUMN NUiiBER IS 

PICTURE IS X(14) 

COLUMN NUMBER IS 

PICTURE IS 9.9 

SOURCE IS NC-VFR 

-ORG 

TYPE IS DETAIL. 

LINE NUMBER Is PlUS ? 

COLUMN NUMBER IS 35 

PICTURE IS X(22) VALUE IS i«REPCRTlNG ORGANIZATION;!, 

COLUMN NU-IBER IS 60 

PICTURE IS X(14) 

SOURCE IS REPCRT-GRGT. 

LINE NUMBER IS PLUS 2 

COLUMN NtMbER IS 35 

X<13) VALUE IS »SPEPCRTED DATE)*. 

COLUMN NUi^BER IS 60 

PICTURE IS X(8) 

SOURCE IS DATE-INT. 

LINE NUMBER IS PLUS ? 

COLUMN NUMBER IS 35 

PICTURE IS X(li) VALUE IS ?«PSR SUMMARY?^, 

COLUMN NUMBER IS 60 

PICTURE IS 999 

SOURCE IS SUM-NOT. 

■ANS 

TYPE IS DETAIL. 
LINE NUMBER IS PLUS 2 

COLUMN NUMBER IS 10 



05 

o 
to 
to 

;s 

o 

o 



I 



00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00508 
00509 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00518 
00519 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00528 
00529 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00538 



PICTURE TS X(12) VALUE IS ^NCT ANSWERED;*. 
01 ANSWERED 

TYPE 15 DETAIL. 
02 LINE NUMBER IS PL'IS 2 

COLUMN NU'IBER IS 10 

PICTURE IS X(20) VALUE IS ^ANSWERED INFORMATION?*, 
0? LINE NUMR£R IS PLUS 2 

COLUMN NU'IBER IS 10 

PICTURE IS X(13) VALUE IS *DATE ANSWERED?!. 
02 CCLUMi'*) NU'^iBER TS 25 

PICTURE IS X(8) 

SOURCE IS CUT-DTOT. 
02 COLUMN NUMBER IS 36 

PICTURE IS X(19) 

SOURCE IS CHECKED-OUT. 

-SYS-RPT 



01 CPfR 
02 



TYPE IS DETAIL, 
LINE NUMBER IS PLUS 



30 
VALUE 

S3 

(GP-C 
61 

VALUE 
77 



COLUMN NUi^'iBER IS 

PICTURE IS X(2i) 
02 COLUMN NU'IBER IS 

PICTURE IS X(6) 

SOURCE IS SYS-CP 
02 COLUMN NU1BER IS 

PICTURE IS X(14) 
02 COLUMN NU'iaER JS 

PICTURE IS 9.9 

SOURCE IS NG-VER (CP-C 
02 LINE NUMBER IS PLUS 1 

COLUMN NU^riER IS 30 

PICTURE IS X(12) VALUE 
02 COLUMN NU'IBER IS <t4 

PICTURE IS X(IO) 

SOURCE IS PROD-NMT. 
02 COLUMN NU:'^B£R IS ftl 

PICTURE IS X(U) VALUE 
02 COLUMN NUMBER IS 77 

PICTURE IS 9.9 

SOURCE IS PRCD-VER (OP 
01 REL-PSRS 

TYPE IS DETAIL. 
02 LINE NUMRtR IS PLUS T 

PICTURE IS X(l?) VALUE 
02 LINE NUMBER IS PLUS 2 

PICTURE IS X(70) 



Is stlMPL OPERATING SYSTEM;*, 

TR). 
IS AVERSION NUMBER*. 

TR) . 

Is sSlMPL PRODUCT?*, 

Is *SVERSICN NUMBER!*. 
-CTR) . 



COLUMN NUMBER IS 10 

IS JtRELATED PSRS?i, 

COLUMN NUMBER IS 10 



> 


00539 




0054,0 




00541 




00542 




00543 




00544 




00545 




00546 




00547 




00548 




00549 




00550 




00551 




00552 




00553 




00554 




00555 




00556 




00557 




00558 




00559 




00560 




00561 




00562 




00563 




00564 




00565 




00566 




00567 




00568 




00569 




00570 




00571 




00572 




00573 




00574 




00575 




00576 




00577 




00578 


a> 


00579 


o 


00580 


to 


00581 




00582 


o 


00583 



01 



Ol 



RO 



01 



SOURCE IS lOENT-PSH-STCR, 
02 LINE NUMQtR IS PLUS 3 

CCUUMM NU'.8ER IS 10 

PICTURE lb Xdl) VALUE IS !»DESCRIPTICN)t, 
nE«;CRlP-RPT 

TYPE IS ntTAIL. 
02 LINE NUMBtH IS PLUS 2 

COLUMN NU'^ibEH IS 10 

PICTURE IS X(73) 

SOURCE IS UESCT (OESC-CTR) . 
OEL-REMSCN 

TYPE IS DcTAIL. 
02 LINE NUM8E^< IS PLUS 3 

COLUMN NU'^BErt IS 10 

PICTURE IS X(17) VALUE IS TREASON FOR DELETE*, 
02 LINE MUMRcR IS PLUS 2 

COLUMN NU"^HER IS 10 

PICTURE IS X(9) 

SOURCE IS DELETE-REASON (DELETE-SU8) , 
I IsT-PSR-NUM-rtEPGRT 

PAt5E LIMIT IS 60 LINES 

HEAD I IMG IJ 

FIRST DETAIL 18. 
LINE NUMRER IS 10 
TYPE IS PAGt HEADING 
NEXT GHCUP IS PLUS 3. 



02 



02 



02 



02 



02 



02 



56 



.NAHFT. 
f)3 



01 



CCLUMiM NUi'iBER IS 
PICTURE IS X(6) 
SOURCE IS CP-SYS- 
CCLUmN NU^^BER IS 
PICTURE 15 X(13) 
SOURCE IS PRODUCT-NAMET. 
COLUMN NUi-ltfER IS 77 
PICTURE IS X(4) VALUE IS 
LINE NUMQtiH IS 13 
COLUMN IS 53 
PICTURE IS X(13) 
SOURCE IS WHICH-FIELO. 
COLUMN NU1BER IS &7 
PICTURE IS X(5) 
SOURCE IS AGE-FIELD. 
COLUMN NU IBER IS 73 
PICTURE IS X(ri) 
SOURCE IS SYSTEM-OATE. 
LlSTING-REPCRr 



*PSRS*, 



o 

to 

o 
o 



> 

I 



00584 
00585 
00586 
00587 
00588 
0058?! 
00590 
00591 
00592* 
00593 
00S94 
00595 
00596 
00597 
00596 
00599 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
0060a 
00609 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00618 
00619 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00628 



TYPE IS DtTAIL. 
02 LIME NUMBfcR IS Pl.US 2 
COLUMN NU'^iBER JS 10 

PICTURE IS 9(6) SOURCE IS LIST-AREA (1). 
02 COLUMN NUHBER IS 32 

PICTURE I'i 9(6) SOURCE IS LIST-AREA (2). 
02 COLUMN NUt'iBEH IS S4 

PICTURE IS 9(6) SGURce IS LIST-AREA (3). 
02 COLUMN NUMBER IS 76 

PICTURE !> 9(6) SOURCE IS LIST-AREA (4). 
02 COLUMN NUMBER IS 98 

PICTURE IS 9(6) SOURCE IS LiST-AREA (5). 
02 COLUMN NUiiBER IS 120 

PICTURE li> 9(6) SOURCE IS LIST-AREA (6), 
PRCCFOtiRE UIVISIC'M. 
DECLARATIVES. 
PRIM-SEC SECTION. 

(iSE AFTER STA"OARD ERHCR PROCEDURE ON PRIM-SEC-LIST, 
PARA-I, 

DISPLAY «i ERROK OCCURRED ON I/O OF PRlM-SEC-LlST^ UPON CUT. 
PSR SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON PSR-FILE. 
pARA-2. 

DISPLAY a EPRC;R occurred on I/O OF PSR-FILE* UPON CUT. 
NUMBR SECTION, 

USE AFIER STAIjDARD error procedure ON NUMBER-FILE, 
pARA-3, 

DISPLAY t ERROR OCCURRED ON I/O OF NUMBER-FILE* UPON CUT. 
SCRTt SECTION. 

USE AFIER STAi^iOARD ERROR PROCEDURE ON SORT-CUT. 
pARA-4, 

DISPLAY * ERROR OCCURRED ON I/C OF SORT-CUT* UPON CUT. 
END DECLARATIVES. 
READ-CARD SECTION. 
SORT- INPUT. 

MOVE SYSTEM-DATE TO FiRST-DATE. 

COMPUTE TODAYS-DATE = ( (YY - 66) * 365) * MTAB (MM) ♦ DD, 
OPEN INPUT iNf-lLE-CARD. 

SORT SORT-FILE ON ASCENDING KEY SCRT-cCOE-1 SORT-CCOE-2 
SORT-CODE-3 INPUT PROCEDURE IS INPUT-PRCCEDURE 
GIVING SOPT-CUT. 
CLOSE INFILE-CARD. 
READ-TAPE SECTION. 
TAPE-OPEN. 

OPEN INPUT SCWT-CUT, 



,1 



05 
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CO 



00629 
00630 
00631 
00632 
O0633 
00634 
0063S 
00636 
00637 
00638 
00639 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 



*C* GC 

*0* GC 



Tn add-ppccesscr. 

TC CHANGE-PROCESSOR. 

To oelete-prgcesscr. 

To LEVEL-PRCCESSCR. 



*R* GC TO REPCRT-PHCCESSCR. 



READ SORT-CUT AT END GC TC LaST-CARD. 

IF CODE-ALPHA = *$* GC TC UTILITY. 

MOVE COUE-ALPHA TC AlPHA-SAVE. 
FILE-OPEN, 

CPFN I-C PRIM-SEC-LIST, PSR-FlLE, NUMBER-FILE. 

MOVE BKl-CHO 10 PRIM-KEY, NUM-KEY, PSR-KEY, 

READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG, 

READ PSH-FILE INVALID KEY PERFORM PROGRAM-BUG. 

READ NUMBER-FILE INVALID KEY PERFORM PROGRAM-BUG. 

MOVE HEADER-PtCCRO TC HEADER-RECCRD-STCRAGE. 

MOVE PSR-FILE-HEADFR TC PSR-FILE-HEADER-STCRAGE. 

MOVE NUMBER-RtC TC NUMBER-FIlE-STCRAGE. 

GO TC TApE-CHt.CK, 
TAPE-INPUT. 

PEPFCRM PEAD-kCUTlNE. 
TAPE-CHECK. 

IF CODE-ALPHA 

IF CODE-ALPHA 

IF CODE-ALPHA 

IF CODE-ALPHA 

IF CODE-ALPHA 

PERFCR^• PROGRAM-HUG. 
LAST-CARD. 

MOVE BKl-CHO TC PHlM-KfY, PSR-KEY, NUM-KEY, 

WRITE NUM8ER-HEC FROM NUMrlER-FILE-STCRAGE INVALID KEY 
PERFORM Pi-C6HAM-PUG. 

WRITE PSR-FlLt-REC FRC^* PSR-FILE-HEADER-STORAGE INVALID KEY 
PERFORM pf'CGKAM-BUG. 

WRITE HEADER-'^eCORD FROM HEADER-RECORD INVALID KEY 
PERFORM PROGRAM-RUG. 

CLOSE SCRT-CUlf PPIM-SEC-LIST. PSR-FIlE, NUMBER-FILE, 

alter-stop. 

go tc stcp-pah. 

STOP-PAR. 

STOP RUN. 
ADDING SECTION. 
ADO-pRoCESSOR. 

MOVE 1 To QC-r£Y. 

TF CCDE-NUM = MOVE RFC-A-MOVEl TO PSR-FlLFl-MCVEt 

PSH-FILEI-MCVET PERFORM READ-ROUTINE ELSE DISPLAY STARSi 
DIAGnCSTIC-S, STARS, REC-A UPON OuT GC TC CARD-SFO-ERRCR. 
IF-ChECKER. 

IF PSR-NUM NOT EQUAL TO PSR-nC GO TO ADD-EnD. 

IF ,CODe-NUM = 1 OR 2 OR 3 CR 4 OR 5 GO TO AdO-PRCC. 

DISPLAY STARS, Dl AfiNOSTlC-S, STARS, REC-A UPCN OUT, 
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00674 
00675 
00676 
00677 
00678 
00679 
00680 
006B1 
0068? 
00683 
00684 
00685 
00686 
00687 
006B8 
00689 
00690 
00691 
00692 
00693 
00694 
00695 
00696 
00697 
00698 
00699 
00700 
00701 
00702 
00703 
OO7O4 
00705 
00706 
00707 
00708 
00709 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00718 



GC TC TAPE-lMr-UT. 
AtJO-pRnC, 

MOVE REC-A-MOV-El TC DESC (CCdE-NUM), qESCT (CCDE-NUM), 

PERFORM Re.AD-KOUTlNE. 

GC TC IF-CHECMiR. 
ADD-ENO. 

MOVE OATE-INT TC FIR5T-0ATE. 

COMPUTE AB-DTl = ((YY - 66) « 365) + MTAB (MM) * DO. 

MOVE PSR-NCT fC PSR. 

COMPUTE B-C = (((PSR - BIAS) « 1?) * 504) / 504. 

IF B-C Is NEGATIVE DISPLAY STARS, DIAQNOSTIC-Pl » STARS. *A0!*» 
PSR-FILEl-MCVET UPON CUT GO TO TAPE-CHECK. 

MOVE BLK TC NUM-KEY-1. 

MCVE CHAR TC MJM-KEY-2. 
AOO-END-1. 

READ NUMBER-FiLE INVALID KEY PERFORM EXPAND-NUM-FILE 

GC TC ADD-END-1. 

IF NUMBER-HEC IS MCT EQUAL TO ZEROES DISPLAY STARS. 

DIA6NCSTIC-P3, STA«S, ;4A0?'. PSR-FILEI-MCVET UPON CUT 
GC Tc TAPt-lNPUT. 
ADD-END-2. 

MCVE PSR-NCT 10 PSR-MUt^BERT. 

MOVE PLH-SAK 10 PRiM-KEY, SAVE-SAK. 

READ PHIM-SEC-LIST INVALID KEY PERFORM PRCGRAM-BUG. 

IF FCRWARD-LIMK = RACKwARD-LiNK AND HEADER-SAK 
fiC TC BUlLO-PRlM-FNTRY. 

mcve forward-link to prim-key. 
check-another, 

read prim-sec-list invalid key perform prcgram-bug. 

IF PROD-NMT = PRCOUCT-NAmE QO TO FOUND-PROD. 

MCVE FCRWARD-LINK TO PRIM-KEY. 

IF PRlM-KEY lb NCT equal TO sAVE-SAK GO TO CHECK-ANOTHER. 
RUILD-PPIM-ENTRY. 

MCVE SPACES TO PRCDUCT-NAMET. 

DISPLAY ^ NEW PRODUCT NAME?* PRCD-NMT * TC BE ENTERED a^ 
5tR£SPCND CK. NC. OH CORRECT SPELLING*. 

ACCEPT PRCDUCI-NAMET, 

IF PRCOUCT-NAMET = ;*CK* GO Tc BLD-ENTRY. 

IF PRCDUCT-NAWET = *H0* DISPLAY STARS, OIAQNCSTIC-P. STARS. 
iiM* PSR-FILEI-MCVET UPON OUT QO TO TAPE-CHECK. 

MOVE PRODUCT-'^iAMeT Tc PRCO-NmT. 

GO TC ADD-END-2. 
BLO-FNTRY. 

PERFORM GET-EiiPTY-LlST. MCVE ALL ZEROES TC PRIMARY-RECORDT. 

MCVE PRIM-KEY TC BAK-LINkT. 



> 

I 



OS 
o 

N> 
N> 

CO 

o 

o 



00719 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00748 
00749 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00758 
00759 
00760 
00761 
00762 
0076 3 



MOVE HEADER-S 
wiOv/E PHOD-NN'T 
MOVE R£ADY-LI 
WRITE HRlMAfY 
MOVE FCrt-LINK 
READ PNIM-SEC 
MOVE RtADY-LI 

wrttf primary 
move ready-li 
move primary- 
wrtte primary 

FGUNn-PROD. 

PFPFOHM GET-F 
MSvE REAOY-PS 
WRtTF MUMPER- 
MOVE PRIM-KEY 
MOVE PKOD-iJMT 
IF CP-SYsTEm- 

PRiM-KEY 
TF CP-SYSTEM- 

PHI.M-KEY 
IF GP-SfSTEM- 

PRlM-KEY 
TF SPACES 

STAHSt L'l 
IF EOUAL-PSRT 

PQ-PSR-NI) 
MOVE RtADY-PS 
WRITE PSR-FIL 
PRnGRArl-BUe. 
GC TO lAPE-CH 
EO-PSR-NIJM. 

MOVE tUUAL-PS 
COMPUTE B-C = 
IF B-C IS NEG 

PSR-FILEl 
MOVE 8LK TO N 
MOVE CHAR TO 
READ NUMRER-F 
IF NUMBEr-REC 

*AO)t, PSR 
MOVE NUMBER-R 

pEao psr.file 
IF psr-ak-fcr 

PSR-AK-FO 



AK TO HEftO-SAKT, FOR-LINKT. 

TO prcduct-namet. 

<j7 jQ FORWARD-LINK* 

-KECORo'lNVALID KEY PERFORM PRCQRAM-BUG. 

T to PRIM-KEY. 

-LIST INVALIO KEY PERFORM PRCQRAM-BUG. 

ST TO BACKWARO-LINK, 

-RECORD INVALID KEY PERFORM PROGRAM-BUG. 

ST TO PRIM-KEY, 

-(ECOflOT 10 PWIMARY-RECCRD. 

-RECORD INVALIO KEY PERFORM PROGRAM-BUG, 

i'lRTY-PSp. Mn^/E PSR-NCT TO PSR-NUMBERT. 

■< TO MUMr^ER-REC, PSR-SAKT. 

'<eC INVALIO KEY PERFORM PROGRAM-BUG, 

rc TEM-KEY-l. 

TO PROD-NAmFT. 

1 = SPACES NEXT SENTENCE ELSE MOVE MASIER-SAK TO 
•iCVE ^MASTER* Tq OP-SYS-NAMET PERFORM SYS-FOUND. 
"^ = SPACES NFXT SENTENCE ELSE MOVE MSOS-SAK TO 

•■iCVF *m5CS^ to CP-SYS-NAMET PERFORM SYS-FOUND. 
-1 = SPACES NFXT SENTENCE ELSE MOVE RTS-SAK TO 

lOVE ;tRT3i TO GP-SYS-NAMET PERFORM SYS-FCUNO. 
f^-SYSTEM-l OP-SYSTEM-2 AND CP-SYSTEM-3 DISPLAY 
-'3NCSTIC-0, STARSf REC-A UPON OUT. 

= SPACES NPXT SENTENCE ELSE PERFORM 

'■ TO PSW-KEY. 

t-.-REC FPOf^ PSR-FILE-RECT INVALID KEY PERFORM 

■iCVF TEM-KEY-1 TO PRIM-KEY, 

(-.OK, 



( ( 
»l I 



TO PSR. 

(PSR - SiaS) # 12) ♦ 504) / 504. 

VE DISPLAY STARSf OIAQNOSTlC-El » STARS* #A0#» 

i-lOVFT UPON OUT GO TO EQ-PSR-EnO. 

"■"i-KFY-1 • 
:ji)M-KEY-2. 

iLE INVALID KEY MOVE ZERO TO NUMBER-REC. 

= ZFRC DISPLAY STARSf DI AGNCSTIC-El ♦ STARSt 
-ULEl-MOvET UPON OUT GO TO EQ-PSR-END 
fcC TO PSR-AK-BACKT. PSR-KEY, 

INv/ALiD KEY PERFORM PRCQRAM-BUQ. 
= ZERO r/OVE PSR-KEY TO PSR-AK-BACK, 

-'•■'im 
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00764 
00765 
00766 
00767 
00768 
00769 
00770 
00771 
0077? 
00773 
00774 
0077S 
00776 
00777 
00778 
00779 
00780 
00781 
00782 
00783 
00784 
00785 
00786 
00787 
00788 
00789 
00790 
00791 
00792 
00793 
00794 
00795 
00796 
00797 
00798 
00799 
00800 
00801 
00802 
00803 
00804 
00805 
00806 
00807 
00808 
00809 



MOVE PSR-AK-FGRW TC SAVE-SAK, PSR-AK-FCRWT . 

MOVE ready-psh To PSR-AK-FORW. 

WRTTE PSR-FILE-REC INVALID KEY PERFORM PROGRAM-BUG. 

MOVE save-sak rc psr-key, 

READ PSH-FILE INVALID KEY PERFORM PRCGRAM-BUG. 
MOVE REAQY-PSH TO PSR-AK-HACK. 

WRTTE HSR-FlLt-REC INVALID KEY PERFORM PRCGRAM-BUG« 
PQ-PSR-END. 

EXIT. 
CHANgE-PRCC SECTION. 
CHANGE-PROCESSOR. 

MOVE PSH-NIJM 10 PSP. 

MOVE 2 TC «C-KEY. 

COMPUTE B-C = (((PSR - BIAS) » 12) ♦ 504) / 504. 

IF COOE-NUM NOT EQUAL TC ZERO DISPLAY STARS, DIAGNOSTIC-S* 

STARS, REC-A UPON CUT «0 TC CARO-SEQ-ERROR . 
IF 8-C IS NEGATIVE DISPLAY STARS, OIAGNCSTIC-Pl » STARS* 

REC-A UPC^M CUT GO TC CARd-SEQ-ERRCR. 
MOVE BLK TC NUM-KFY-1. 
MOVE CHAR TC iNUM-KEY-2. 

READ NUMBER-FILE INVALID KEY MOVE ZERO TO NUMBER-REC. 
IF NUMbER-REC = ZERC DISPLAY STARS, DIAGNCSTIC-P4, STARS, 

REC-A UPC'V CUT GC TO CARD-SEQ-ERRCR 
MOVE NUMBER-RtC TC PSR-KFY. mCVE PSR-EQ TC PSR-EQT. 
READ PbR-FILE INTG PSH-FILE-RECT INVALID KEY PERFORM 
PROGRAM-BUG. 
IF LcQfcED-CUT = SPACES NFXT SENTENCE ELSE MQVE LCGGED-OUJ 

TC OUT-DTUT. 
IF CP-SYSTEM-1 = SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-1 

TC sys-at. 

IF VERS-1 = S*-'ACES NEXT 
IF CP-SYsTEM-ii = SPACES 

TC SYS-BT. 
IF VEHS-2 = SPACES NEXT 
IF OP-SYSTEM-J = SPACES 

TC SYS-CT. 

IF VER-3 = SPACES NEXT SENTENCE ELSE MOVE VER-3 TC VER-CT. 
IF TEST = SPACES NEXT SENTENCE ELSE MOVE TEST TC TESTEO-T. 
IF SUM-NUM = SPACES NEXT SENTENCE ELSE MOVE SUM-NUM TO 

SUM-NOT. '^iCV£ PSR-KEY TO TEM-KEY-3. 
CHANGE-CHECKER. 

PERFORM READ-RCUTINE. 

IF PSR-NUM NCI EQUAL TC PSR-NOT GC TC CHANGE-END. 

IF CCDE-NUM = 1 2 3 4 GR !i McVE REC-A-MCVEl TO OESCT 

(COOE-NUM) GO TO CHANGE-CHECKER. 
DISPLAY STARS* DIAGNCSTIC-S, STARS, REC-C UPON OUT, 



SENTENCE ELSE 
MEXT SENTENCE 

SENTENCE ELSE 
NEXT SENTENCE 



MOVE 
ELSE 

MCVE 
ELSE 



VERS-1 TC VER-AT. 
MOVE CP-SYSTEM-2 

VERS-2 TC VER-8T. 
MOVE CP-SYSTEM-3 



to 



Oi 

o 
to 
be 

o 
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00810 

00811 

00812 

00813 

00814 

00815 

00816 

00817 

00818 

00819 

00820 

00821 

00822 

00823 

00824 

00825 

00826 

00827 

00828 

00829 

00830 

00831 

00832 

00833 

00834 

00835 

00836 

00837 

00838 

00839 

00840 

00841 

0084? 

00843 

00844 

00845 

00846 

00847 

00848 

00849 

00850 

00851 

00852 

00853 

00854 



GO TC TAPE-INPUT. 
CHANGE-END. 

IF CP-SYSTEM-1 = ZEROES (3C To SECOND-CHECK. 

IF MASTER-LIST-AK = ZERCFS MOVE ^MASTER* TO 

PERFORM NEED-StCGNDARY-LTST. 
SECGnD-CHECK. 

IF CP-SYsTEM-^ = ZEROES fiC Tg 

IF MSOS-LlST-Af = ZEPCES mGVE 

PERFORM NEED-SLXONDARY-LIST. 
THIRD-CHECK. 

IF GP-SYSTEM-J = ZEROES GG Tg 

IF RTS-LIST-A". = ZFRCtS MGVE 

PERFORM NEED-SECGMDAPY-LIST. 
PSH-LIMKAGE. MCVF PSw-kEY TG TEM-KEY-S, 

IF PSR-AK-FCP''.'T = ZEP0E5 AND PSR-AK-8ACKT 60 TG 
NO-PSR-LI'^iK. 

IF PSR-AK-FORir.T IS NOT EQUAL TO PSR-AK-BACKT GO TC BACK-CK. 

MGVE PSR-AK-FwHWT TO ^SR-kEY. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

PEoFGRM MOVE-UATA, 

WRITE PSR-FlLt-HEC INVALID KEY PERFORM PROGRAM-BUG. 



CP-SYS-NAMET 



THIRD-CHECK. 

?tMSCS* TC OP-SYS-NAMET 



PSR-LINKAGE. 
*PTS* TO GP-SYS-NAMET. 



IF EQUAL-PSRS (1) 
SEARCH EQUAL-PSRS 
(PSR-INDEX) 
= PSr-NC '"iCVE 
NC-PSR-LInK. 
BACK-CK. 

MOVE PSH-AK-RACKT 



= SPACES GO TO NG-CTHER-PSR. 

AT END GO TO NO-PSR-LINK WHEN EQUAL-PSRS 

ZEROES TC EQUAL-PSRS (PSR-INOEX) GO TO 



TO PSR-KEY. 

READ PSR-FILE INVALID KEY PERFORM PRGGRAM-8UG. 
PEPFCRM MGVE-UATA. 

WRITE PSR-FILt-REC INVALID KEY PERFORM PRGQRAM-8UG. 
IF PSR-Ak-BACK = TEM-KEY-3 GO TO BACK-CK-1. 



IF EQUAL-PSRS (1) 
SEARCH EQUAL-PSRS 
(PSR-INDEX) 
= PSR-NO MOVE 
BACK-CK. 
BACK-CK-1. 

IF EQUAL-PSRS (1) 

SEARCH EQUAL-h'SRS 

(PSR-INDE^) 

= PSR-NC i'lCVE 

NC-PSR-LINK. 

MOVE 1 TO DELt'TE 
\NC-PSR-LINK-1. 



SPLICES Gg to 
T! 



BACK-CK. 



AT END GO TC BACK-CK WHEN EQUAL-PSRS 
ZEROES TO EQUAL-PSRS (PSR-INDEX) GO TO 



= SPACES Go TO 
AT END GO TO NC 



NC-OTHER-PSR. 
:-PSR-LINK WHEN 



EOUAL-PSRS 



ZEROES TG EQUAL-PSRS (PSR-INDEX) 
SUB. 
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00855 

00856 

00857 

00858 

00859 

00860 

00861 

00862 

00863 

0086'i^ 

00865 

00866 

00867 

00868 

00869 

00870 

00871 

00872 

00873 

00874 

00875 

00876 

00877 

00878 

00879 

008B0 

00881 

00882 

00883 

00884 

00885 

00886 

00887 

00888 

00889 

00890 

0CR91 

00892 

00893 

00894 

00895 

00896 

00897 

00898 

00899 



IF DELETE-SUB GREATER THAN 9 60 TO NO-OTHER-PSR. 
MOVE EWUAL-PSrtS (DELETE-SUB) TO PSR. 
COMPUTE B-C = (((PSR - MIAS) » 12) + 504) / 504. 
IF B-C is NEGATIVE DISPLAY STARS, DIAGNCSTIC-El , STARS* 
PROD-NCT, EQUAL-PSRS (DElETE-SUB) UPON OUT ADD 1 TO 
DELETE-SUB SO TO NC-PSR-LlNK-1 . 
MOVE BLK TO NUM-KEY-1. 
MOVE CHAR TO nUM-KEY-2. 

READ NUMBER-FILE INVALID KEY MOVE ZEROES TO NUMBER-REC 
IF NUMBER-REC = ZERO DISPLAY STARS* DIA6N0STIC-P4, STARS, 

REC-A UPCi-J OUT ADO 1 TO dELETE-SUB GO TO NC-PSR-LINK-1 . 
MOVE NUMBER-RtC TO PSH-KFY. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 
MOVE-DATA. 

IF LOGGED-CUT = SPACES NEXT SENTENCE ELSE MOVE LOGGED-CUT 
TO OUT-DTU. 
OP-SYsTEM-1 = SPACES NEXT SENTENCE ELSE MCVE CP-SYSTEM-1 

jn SYS— A 
VFRS-1 = SPACES NEXT SENTENCE ELSE MOVE VERS-1 TO VER-A. 
OP-SYsTEM-2 = SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-2 
TO SYS-B. 

VERS-2 = SPACES NEXT SENTENCE ELSE ^ICVE VERS-2 TO VER-B. 
Op-SYSTF.M-:s = SPACES NEXT SENTENCE ELSE MCVE CP-SYSTEM-3 

T'^ SYS— C 
VER-3 = SPACES NEXT SENTENCE ELSE MCVE VER-3 TO VER-C, 
TFST = SPACtS NEXT SENTENCE ELSE MOVE TEST TO TESTED. 
SUM-NUM = SPACES NEXT SENTENCE ELSE MOVE SUM-NUM TO 
SUM-NC. 
MCVE-DATA-1. 

IF PSR-Ak-FCRv = ZERC GC TO MOVE-DATA-3. 
MOVE PSR-AK-Fw'HW TO PSH-KEY, TEM-KEY-7* 
READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG 
PERFCRK1 MOVE-UATA, 

IF PSR-AK-hCPw = MUMPER-REC GO TC EQUAL-PSR-LINKAGE. 
MCVE-DATA-2. 

MCVE PSR-AK-FGRW TC PSR-KEY. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG, 
PERFORM wGvE-DATA. IF PSr-AK-FCRW = NUMBER-REC NEXT 
SENTENCE tlSE WRITE PSR-FILE-REC INVALID KEY PERFORM 
PRGGRAM-BUG GC TC i^CVE~DATA-2. 
MCVE-OATA-3. 

MOVE TEM-KEY-3 TC PSR-AK-FORW. 

MCVE PSR.AK-BACKT TC PSR-aK-BACK. 

WRITE PSR-FlLf-REC INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-KEY TC PSR-AK-BACKT. 



IF 

IF 
IF 

IF 

IF 

IF 
IF 
IF 



to 



OS 
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to 
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00900 
OOQOl 
0090? 
00903 
0090^ 
00905 
00906 
00907 
0090H 
00909 
00910 
00911 
00912 
00913 
00914 
00915 
00916 
00917 
00918 
0'0919 
00920 
00921 
00922 
00923 
00924 
00925 
00926 
00927 
00928 
00929 
00930 
00931 
00932 
00933 
00934 
00935 
00936 
00937 
00938 
00939 
00940 
00941 
00942 
00943 
00944 



MOVE PSrt-KEY 
MOVE PSR.AK-H 
READ PSk-FILE 
MOVE TEM-KEY- 
WRITE PSR-FIL 
ADD 1 IC UELF 
CO TC NC-PSR- 

EQUAL-oSR-LlNKAGF 
MOVE TEM-KEY- 
MCVE PbR-AK-B 
MOVE TEM-KEY- 
WBITE PSR-FU 
MOVE TEM-KEY- 
READ PSR-FILF 
MOVE NUMBEP-R 
WRITE PSR-FIL 
MCvE NUMBER-R 
READ PSR-FILE 
MCV/E TEM-KEY- 
Wf»lTE PSR-FIL 
MCVE TEM-KEY- 
WRITF PSR-FIL 
ADD 1 TO DELE 
RC TC NC-PSR- 

NC-OTHEP-PSR. 

MCVE TEM-KEY- 

WRITE PSR-FIL 

PERFORM p 

60 tc tape-ch 
meed-seccndary-li 

MEEO-LIST-1. 

IF master-li 

MCVE MAST 
IF MSCS-LIST 

MOVE MSCS 
IF RTS-LIST- 

MCVE RTS- 
PERFCRM PRCGR 
NEED-LIST-2. 

MCVE PRIM-KF 



TC TEM-kEY-7. 
"CKT TC PSR-KEY, 

INVALID KEY PERFORM PRCGRAM-SUG. 
■^ TC PSR-AK-FCRW, 

c-REC INVALIO KEY PERFORM PROGRAM-BUG. 
Tt-SIIB. 
LIMK-1 . 



-> TC PSR-AK- 
tvCKT TC TEM- 
7 TC P5R-AK- 
t-REC INVALI 
o TC PSP-KEY 

INVALID KEY 
tC TC PSR-AK 
K-RfcC INVALI 
C.C TC PSR-KF 

INVALID KEY 
^ TC PSR-AK- 
t-:-ReC INVALI 
f TO PSR-KEY 
I---REC INVALI 
rt-55U8. 
L1N)K-1. 



FCRW. 
KeY-6. 

rackt. 

key perform prcqram-bug. 

perform prcgram-8ug 

-FCRi^. 

U KEY PERFORM PROGRAM-BUG. 

Y. 

PERFORM PROGRAM-BUG. 
BACK. 
KEY PERFORM PRCGRAM-BUQ 

* 

KEY PERFORM PRCGRAM-BUG. 



i TC PSR-KEY. 

t-REC FROM PSR-FILE-RECT INVALID KEY 

HfCQRAM-BUG. 

tCK. 

i>T SECTION. 



ST-AKT IS NOT ZERO 
EH-LIST-AKT TO TEM-KEY-1 

AKT 155 NOT ZERO 

LIST-AkT TC TEM-KEY-1 6C 
MKT IS NOT ZERO 
LIST-AKT TC TEm-KEY-1 GC 
i,M-(5UG. 



GC TC NEED-LIST-2. 
TO NEED-LIST-2. 
TC NEED-LIST-2. 



Y TO TEM-KEY-2. 
MOVE TEm-KEy-1 to PRiM-KEY, 

READ PRIM-SFC-LIST INVALID KEY PERFORM PRCQRAM-BUG. 
MCVE HEADER-i>MK TC PRIM-KEY. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PRCQRAM-BUG. 
MCVE HEADER-LINK TC PRIM-KEY, TEM-KEY-1. 
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00950 

00951 

00952 

00953 

00954 

00955 

00956 

00957 

00958 

00959 

00960 

00961 

00962 

00963 

00964 

00965 

00966 

00967 

00968 

00969 

00970 

00971 

00972 

00973 

00974 

00975 

00976 

00977 

00978 

00979 

009P0 

00981 

00982 

00983 

00984 

00985 

009H6 

00987 

00988 

00989 



READ PRIM-SEC-LIST INVALID KEY PERFORM 
MOVE PSR-KEY TO PSR-SAkT. 

IF CP-SYS-NAMtT = ^MASTER?* MOVE MASTeR-SAK T 

IF CP-SYS-NA"^ET = JSMSCSst MOVE MSOS-SAK TO 

IF cp-sys-nahet = #rts5« move rts-sak to 

PRCD-NAMET, 

psr-numbert. 



prcqram-buq. 



) prim-key. 

prim-key. 

prim-key. 



= ^master?* move ready-list to master-sakt. 
= ;«mscs* move ready-list to mscs-sakt. 
= *!rts^ move ready-list to rts-sakt. 

PRIM-KEY. 



MOVE PROd-NMT TO 
MOVE PSR-NOT TO 
PERFORM SYS-FGUNO. 
IF CP-SYS-NAMfrT 
IF OP-SYS-NA-^FT 
IF CP-SyS-NAmET 
MOVE TEM-KEY-^ TO 
SYS-FOtlND SECTION. 

secondary-entry-insert. 

if prim-key = zero perform secondary-head.er-insert 

GC TO SEC-ENT-lN-1. 
READ PHIM-SEG-LIST INVALID KEY PERFORM PROGRAM-BUG. 

SEC-ENT-IN-1. 

PERFORM GET-Ei'iPTY-LlST. 

IF FORWARD-LINK = BaCKWARD-LINK AND HEADER-SAK 
GO To SEC-fc.NT-IN-3. 
SEC-ENT-lN-2, 

MOVE BACKWARD-LINK TO PRIM-KEY. 

READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

IF PSK-NUMBFH LESS THAN PSR-NUM8ERT GO TO SEC-ENT-IN-3. 

IF BACKWARD-LINK NOT EQUAL TO HEADER-SAK 
GC TO SEC-KNT-IN-2, 

MOVE BACKWARD-LINK TO PRIM-KEY. 

READ PRIM-SEC-UST INVALID KEY PERFORM PROGRAM-BUG. 
SEC-ENT-IN-3. 

MOVE FORWARD-LINK TO FGRWARO-LKT. 

MOVE READY-LIi>T TO FCRWARO-LINK. 

MOVE HEADER-SAK TO HEADER-ST, 

MOVE PRIM-KEY TO BACKWARn-LKT. 

WRITE SECONDA'^Y-RECORD INVALID KEY PERFORM PROGRAM-BUG. 

MOVE FCRWARD-UKT TO PRIM-KEY. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

MOVE READY-LIST TO BaCKWa>*0-LINK, 

WRITE SECONDAhY-recORD INVALID KEY PERFORM PROGRAM-BUG. 

MOVE READY-LIST TO PPIM-KEY. 

WRITE SEcCNOAt^Y-RECOPO FROM SECONDARY-RECORDT 
INVALID KtY PERFORM HROGRAM-BUG. 

IF CP-SyS-NA^'ET = i^mASTER*- MOVE READY-LIST TO 

master-list-akt. 

IF CP-SYS-NAHET = ;6mSCS;6 MCvE READY-LIST TO MSOS-LIST-AKT. 
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00990 
00991 
00992 
00993 
00994 
00995 
00996 
00997 
00998 
00999 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01008 
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01011 
01012 
01013 
01014 
01015 
01016 
01017 
0101ft 
01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 



IF OP-SYS-NA.«!E,T = *RTS* MOVE READY-LIST TO RTS-LIST-AKT, 

seconoary-header-insewt section, 
sec-head-in. 

PERFORM GET-FT-^PTY-LIST. 

IF CP-SYS-NA'^^tT = *mASTfR* MOVE READY-LIST TO MASTER-SAK. 

IF 0P-SYS-NA'^£T = ;4mSCS*! MOVE READY-LIST TO MSCS-SAK. 

IF CP-SYS-NA-iET = ?»pTS* MOVE READY-LIST TO RTS-SAK. 

MOVE TEM-KEY-1 TO PRIM-KFY, HEADER-LINKT. 

WRITE PRIMARY-RECORD INVALID KEY PERFORM PROGRAM-BUG, 

MOVE READY-LIST TO PRlM-KEY* FCRWARO-LlNKT, 
BACKWARD-UINKT, hEAOFR-SaKT. 

MOVE i*A^ TO SUPP-LEVELT. 

MOVE HEAOER-RtCORDT 10 HEADER-RECORD, 

WRITE MEADEP-^^ECORD INVALID KEY PERFORM PROGRAM-BUG, 
nELETlMG SECTION. 
DELETE-PRCCESSCR. 

MOVE 1 TO OELtTE-SUB. 

MOVE *PSR 0ELf-7E REPORT;* TO REPT-HEADING. 
DELETE-PRCC. 

IF DELETE-LlMKfcD (DELETE-SUB) • SPACES NEXT SENTENCE ELSE 
GO TO OELtlE-ALL-PROC. 

MOVE DELETE-PSO-NC (OELETE-SuB) TO PSR. 

COMPUTE B-C = (((PSR - BIAS) » 12) + 504) / 504. 

MOVE BLK TO Nuf^'-HLK. 

MOVE CHAR TO JUM-CHAR. 

MOVE NUMBER-Pec TO NUM-KFY. 

READ NUMBER-FILE INVALID KEY PERFORM PROGRAM-BUG. 

MOVE NUMBER-RtC TO PSR-KFV, TEM-KEY-1. 

MOVE ZEROES TO NUMgEP-REC. 

WRITE NUmBER-HEC INVALID KEY PERFORM PROGRAM-BUG, 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-FILE-REC TO PSR-FILE-RECT. 

MCvE SPACES TC PSR-FILE-REC. 

MOVE EMPty-PS'^-FILE TO nfxt-empty. 

MOVE TEM-KEY-1 TO READY-PSR. 

WRITE PSR-FlLt-HEADER INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-AK-RACKT TC PSR-KEY. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-AK-FCRWT TO PSR-AK-FCRW. 

WRITE PSR-FlLt-:-REC INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-AK-FCRWT TO PSR-KEY, 

READ PSR-FILE LMVALID KEY PERFORM PROQRAM-BUG. 

MOVE PSR-AK-RttCKT TO PSR-AK-BACK, 

WRITE PSR-FIL^.-REC INVALID KEY PERFORM PROGRAM-BUG, 

IF MASTER-LlST-AKT IS NOT EQUAL TO ZERO MOVE MASTER-LIST-AKT 



g 01035 TO PRIM-KtY perFCHm n£L£T£-LIST. 

g 01036 IF MSCS-LIST-aKT IS NCT EO'ML TO ZEHC MOVE MSOS-LIST-AKT TC 

g 01037 PKIM-KEY rE^FORM DELETE-LIST , 

g 01038 IF RTS-LIST-A^r IS NOT tQUAL. TC ZERO MOVE RTS-LIST-AKT TC 

01039 PRIM-KEY PERFORM DFLPTE-LlST , 

01040 PERFCRt'^ DELETt-PART-2. 
010^1 PERFORM DELETS.-«EPORT. 
0104? AOn 1 TO DELFTE-SUB. 

01043 IF OELETE-SUB IS GREATER THAN S GO TO TAPE-IK'PUT ELSE 

01044 GO TO OELtTE-PRCc. 

0104IS OELETE-ALL-PROC. -ICVE SPACES TC IDENT-PSR-STOR. 

01046 DELETE-ALL-1, 

01047 PERFORM 6ET-AK. 

01048 PERFORM 0£T-PSR. 

0]04<3 IF MASTER-LIS<-AKT IS NCT EQUAL TC ZERO MOVE MASTER-LIST-AKI 

01050 TC PRIM-KtY PERFCWM dELETE-LIST. 

01051 IF MSCS-LIST-'aKT IS NOT EQUAL TO ZERO MOVE MSCS-LIST-AKT 
0105? TO PRIM-KtY PERFORM DKLETE-LIST . 

01053 IF RTS-LIST-A^T IS NOT EQUAL TO ZERO MOVE HTS-LIST-AKT 

01054 TO PRIM-KtY RERFOHM DELETE-LIST .. 

01055 DELETE-PARl-1. 

01056 MOVE PSR-AK-R4CKT TO PSR-KEY. 

01057 MOVE I To CTR. 

01058 OELETF-PART-2, 

01059 READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

01060 MOVE PSR-NC TC STOR-lDENT-H (CTR). 

01061 MOVE TEM-KEY-;i TO TEM-KEY-5. 

01062 WRITE PSR-FlLt-R£C INVALID KEY PERFORM PROGRAM-BUG. 

01063 IF CTR = 10 GC TO OElETE-PART-3. ADD 1 TO CTR. 

01064 IF PSR-AK-BACi^ =» TEM-KEY-2 NEXT SENTENCE ELSE 

01065 MOVE *** TC STCR-IDEnT-1 (CTR) 

01066 MOVE PSR-AK-BACK TO PSR-KEY GO TO OELETE-PART-2. 

01067 DELEtE-PART-3. 

01068 PERFORM DELETt-RPT, 

01069 DELETE-PART-4. 

01070 PERFORM DELETK-ALL-l . 

01071 PFRFCRM OELETt-PART-1. 

01072 SET INUX-STCR TO 1, 

01073 SEARCH STCR-lsJENT AT ENO GC TO DELETE-PART-5 WHEN 

01074 STOR-IDENT-2 (INDX-STOR) » PSR-NCT MOVE PSR-AK-FCRWT 

01075 TC STOR-IUENT-? (INDX-STCR) . 

01076 DELETE-PART-5. 

01077 PERFORM dELETE-RPT. 

> 01078 IF TEM-KEY-2 = TEM-KEY-5 NEXT SENTENCE ELSE GO TO 

M 01079 OELETE-PAWT-4, 



^ 01080 ADn 1 TO DELFTF-SUB. 

S 01081 IF OELETE-SUR IS GREATER THAN 5 GO TO TAPE-INPUT ELSE 

OlOft? GO TC DELtlE-PRCC. 

01083 GET-ak. 

010P4 MOVE OELETE-Pb«-NJ0 (OELETE-SUB) TO PSR. 

010^5 CCMPUTt e-C = (((PSR - filAS) « 12) ♦ 504) / 504. 

01086 MOVE SLK TC NUm-itIlK. 

01087 MOVE CHAR TC !mUM-CHAR. 

01088 MOVE NUMBEP-RKC TC NUM-KFY. 

01089 READ NUMBER-FILE INVALID KEY PERFORM PRCGRAM-BUG. 

01090 MOVE NUMBER-Ptt TC PSK-KFY, TEM-KEY-2. 

01091 MOVE ZtRcES TO !^UMRER-REC. 

01092 WRITE NUMBER-Ki-:c INVALID KEY PERFORM pRCGRAM-BUG. 

01093 GET-pSR. 

01094 PEAO PSR-FILE INTO PSR-F ILE-RECT INVALID KEY PERFORM 

01095 PRCGRAM-8ub. 

01096 MOVE SPACES TC PSR-FILt-REC. 

01097 MOVE EMPTY-PS'<-FILE TC NEXT-EMPTY 
0109B MOVE TEM-KEY-^ TO EMPTY-pSR-FlLE 

01099 WRTTF PSR-FlLt-HEAOER INVALID KEY PERFORM PRCGRAM-BUG. 

01100 DELEtE-RPT SECTIO'^'. 

01101 nELETF-REPOHT. 

01102 INITIATE delfu;-rfpcrt-i, 

01103 GENERATE REPC*^TtO-OELETE. 

01104 TF CP-SYS-IT ' SPACES NEXT SENTENCE ELSE MOVE 1 TC CP-CTR 

01105 MCVE *MASIF-Hrf TC SYS-CP (CP-CTH) MOVE VER-IT TO 

01106 ng-vfr (ch-ctr) generate CP-SYS-RPT. 

01107 jF CP-SYS-2T = SPACES NEXT SENTENCE ELSE MCVE 2 TO CP-CTR 
OUue MCVE ^MSC'^* TO SyS-CP (CP-CTR) move VEH-2T TO 

01109 NC-VER (Cr-CTH) GENERATE CP-SYS-RPT. 

OniO IF CP-Sys-3T = SPACES NFxT SENTENCE ELSE MOVE 3 TC OP-CTR 

01111 MOVE *RTS* Tc SYS-CP (CP-CTK) MOVE VER-3T TO 

0111? NC-VFRlCP-CrW) GENERATE CP-SYS-RPT- 

01113 GENERATE RPT-CPG. 

01114 IF CUT-DTDT = SPACES GENF^^ATf NCT-ANS GC TC RPT-PTl 

01115 ELSE GENF"(ATE ANSi^iERPO. 

01116 IF SYS-AT = ZtHCES NEXT SENTENCE ELSE MOVE 1 TO CP-CTR 

01117 MOVE ^MASTER/ TO SYS-OP (CP-CTR) MCVE SYS-AT TC 

01118 NC-VER (O'^-CTR) MOVE VER-AT TC PRcO-VER (CP-CTR) 

01119 GENERATE -PER-SYS-ppt . 

o5 01120 IF SYS-BT = HEROES NtXT SENTEMCf ELSE MOVE 2 TO OP-CTR 

§ 01121 MCVE *MSC3* TC SyS-CP (CP-CTR) MOVE SYS-RT TC 

S 01122 NC-VER (CI--CTR) MOVE VER-BT TC PRCD-VER (CP-CTR) 

S 01123 GENERATE OPE^-SYS-HPT . 

01124 IF SYS-CT = ZtKCES NEXT SENTENCE ELSE MOVE 3 TO CP-CTR 



o 



g 01125 MOVE ?(!RTS?' TO SYS-CP (OP-CTR) MOVE SYS-CT TO 

I 01126 NO-VER (CH-CTR) MOVE VER-CT TO PROD-VER (OP-CTR) 

w 01127 GENERATE OPER-SYS-RPT. 

§ 01128 RPT-pn. 

01129 GENERATE REL-PSRS. 

01130 MOVE 1 To OESC-CTR, 

01131 GENERATE DESCHIP-RPT, 
0113? MOVE 2 TO DESC-CTR. 

01133 GENERATE OESCHIP-RPT, 

01134 MOVE 3 To OESC-CTR. 

01135 GENERATE OESCHIP-RPT. 

01136 MOVE 4 To OESC-CTR. 

01137 GENERATE DESCHIP-PPT. 

01138 MOVE 5 TO DESC-CTR, 

01139 GENERATE DtSCKlP-RPT. 

01140 IF REPT-HEADINO a ;tPSH DELETE REPORT;* GENERATE DEL-REASON 

01141 ELSE NEXT SENIENCE, 

01142 RPT-PT2. 

01143 TERMINATE DELtTE-REPCHT-1. 

01144 DELETE-LT SECTION. 

01145 DELETE-LIST. 

01146 READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

01147 MOVE HtADER-Ri-.COND TC HEAOER-RECCROT. 

01148 MOVE PRlM-KEY TO TEM-KEY-1. 

01149 MOVE BACKWMRD-LIMKT TO PRIM-kEY, 

01150 RFAO PHlM-SEC-LlST INVALID KEY PERFORM PROGRAM-BUG. 

01151 MOVE FCRWARD-lIiMKT TO FOR'aiARd-LINK, 

01152 WRITE HEAOER-r(t;CORD INVALID KEY PERFORM PROGRAM-BUG. 

01153 MOVE FCRWARD-LlNKT TO PRIM-KEY. 

01154 READ PKIM-SEC-LIST INVALID KEY PERFORM PROSRAM-BUG. 

01155 MOVE BACkWARD-lINKT TO «ACKWARD-L1NK. 

01156 WRITE HEADEP--(£C0RD INVALID KEY PERFORM PROGRAM-BUG. 

01157 MOVE SPACES TO HFAOER-RECORD. 

01158 MOVE EMPTY-HFAD-REC TO EmPTY-SAK. 

01159 MOVE TEM-KEY-) TO PRiM-KEYf EMPTY-HEAD-PEC. 

01160 WRITE EMPTY-RECORD INVALID KEY PERFORM PROGRAM-BUG. 

01161 LEVEL-p«OC SECTIC'^. 

01162 LEVEL-PROCESSOR. 

01163 MOVE PLrt-SAK TO PRiM-KEY. 

01164 READ PHIM-SEC-LIST INVALID KfY PERFORM PROGRAM-BUG. 

01165 MOVE FCRWARD-LlNK TO PRIM-K£Y« 

01166 READ PRlM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

01167 IF PROOJcT-NAi-it = PRCDUCT-LEVEL 60 TC OP-SySTEM-CHECK, 
> 01168 DISPLAY STARS. 01 AGNCSTIC-L2, STARS, REC-L UPON OUT. 
iJ, 01169 GO TC TApE-lNf^UT. 



-a 



> 01170 cp-system-check. 
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01171 IF CP-SYS-LEVdL = ;(MASTERa6 MQVE MASTER-SAK TO PRIM-KEY 

01172 GO TO CGMPLETE-LEVEL. 

01173 IF CP-SYS-LEVtl. = iMSCS;* MOVE MSCS-SAK TO PRIM-KEY 

01174 GC To CCMr^LETE-LEVEL, 

01175 IF OP-SYS-LEViiL = *!RTS* MOVE RTS-SAK TO PRIM-KEY 

01176 GO To CCM^'LETE-LEVEL. 

01177 OISPLAY STARS» 01 AGNCST IC-LI , STARS, REC-L UPON CUT. 

01178 GO TO TApe-I\<HiJT, 

01179 COMPLETE-LEVEL. 

0118C READ PRIM-SEC-LIST INVALID KEY PEHFCRM PROGRAM-BUG. 

01181 MOVE SUPPORT-LEVFL TO SUPP-LEVEL. 

01182 WRITE HEADER-^ffcCCRr) INVAlK) KEY PERFORM PRCGRAM-BUQ. 

01183 GO TC TAPE-INKUT. 

01184 REPORT-PROCESS SECTION. 

01185 REPORT-PROCESSOR. 

01186 IF 0S-FIELD2 iS NUMERIC NEXT SENTENCE ELSE 00 TC 

01187 REPCRT-PROCESSCR-I. 

01188 IF CS-FIELU3 jS EQUAL TO SPACE MOVE 0S-FIEL02 TO PSR ELSE 

01189 MOVE GS-FIELDI TC PSR, 

01190 COMPUTE B-C = ( ( (PSR - BIAS) « 12) ♦ 504) / 504. 

01191 MOVE BLK TO NUM-BLK. 

01192 MOVE CHAR TO nUM-CHAR. 

01193 MOVE NUMBER-RtC TC NUM-KFY. 

01194 READ NUMBER-FILE INVALID KEY PERFORM PRCGRAM-BUQ. 

01195 MOVE NUMBER-PtC TC PSK-KFY. 

01196 READ PSR-FILE INVALID KEY PERFORM PRGGRAM-BUG. 

01197 MOVE itSlNGLE f-'SR REPCr'T?! TC PEPT-HEAOINQ. 

01198 MOVE PSrt-FILE-KEC TC PSR-FILE-RECT. 

01199 PERFORM DELET^-RPT. 

01200 60 TC TAPE-INHUT. 

01201 REPCRT-PRCCESSCR-i. 

01202 IF OS-FIELD = *ALL# PERFORM pRCD-CHECK VARYING CS-NUMBER 

01203 FROM 1 BY 1 U^illL. cS-NUMrfR s 3 60 TC TAPE-INPUT. 

01204 IF CS-FIELD = *MASTER# McVE 1 TO CS-NUMBER. 

01205 IF CS-FIELD = *MSCS* MCVF 2 TC CS-NUMBER, 

01206 IF OS-HELD = ^^RTS* MCVE 3 TC OS-NUMBER. 

01207 PERFORM PHCD-LHECK GC TC TAPE-INPUT. 

01208 P«00-ChECK SECTION. 

01209 PNCO-CHEK. 

01210 MOVE PLH-SAK TC PRIM-KEY, TEM-KEY-1 



o 01211 READ PRIM-SEC-LIST INVALIO KEY PERFORM PROGRAM-BUG. 



01212 MOVE FORwARD-LiNK TC TEM-KEY-2, PRIM-KEY. 



5£ 01213 IF PRCD-FIELD = *ALL* PERFORM ALL-PRCD GO TO PRC0-CHECK3, 



01214 PRCD«CHECK1. 



g 01215 READ PRIM-SEC-LIST INVALTO KEY PERFORM PRCQRAM-BUG. 

g 01216 MOVE FORWARD-LINK TC TEM-KEY-a, 

w 01217 IF PRCO-FIELD = PRODUCT-NAME QO TO PRCD-CHECK2. 

o 01218 IF FORWARO-Ll^iK = TEM-KEY-1 60 TO NONE-THERE. 



o 



01219 GO TO PRCU-CHrtKl 

01220 PRC0-CHECK2. 



01221 MOVE PRlMARY-'-;eCORQ TO PRIMARY-RECORDT. 

01222 IF R-SAKT (GS-^-iUMBER) = n QO TO MCNE-THERE. 

01223 MOVE 1 rc DEL^TE-SUR. 

01224 MOVE R-SAKT (CS-NUMBEH) TG PRIM-KEY* TEM-KEY-4. 

01225 PERFORM POLL-LLSr. 

01226 PRC0-CHECK3. 

01227 EXIT. 

0122B FOLL-LIST SECTIONl 

01229 FCL-LIST, 

01230 READ PRIM-SEC-LIST ImVALIO KEY PERPCRM PROGRAM-BUG. 

01231 MOVE SECCNDARV-RFCORn TO SECCNOARY-RECCROT , 
0123? MOVE PSR-SAKT TQ osR-KEY. 

01233 READ P6R-FILE INVALID KEY PERFORM PROGRAM-BUG. 

01234 MOVE PSH-FlLE-t<£C TO PSR-FILE-RECT . 

0123'=i TF WHiCH-FIELu = ^tAl-U* NFXT SENTENCE ELSE IF OUT-DTDT IS 
01236 N»CT EQUAL TO SPACES AMD WHICH-FIELU = ^UNANSWERED* 

012^7 MOVE FORW^KD-LKT TC PRIM-KEY IF FcRWARD-LKT = TEM-KEY-4 

01238 GO To PER-'-EXlT ELSE «0 TO FCL-LIST ELSE IF 

01239 GUT-DTOT IS FQUAL TO SPACES AND WHICH-FIELD = ;*ANSWERED# 

01240 MOVE FCRW"RO-LKT TO PRIM-KEY IF FORWARO-LKT = TEM-KEY-4 

01241 GO To PERI--EXIT ELSE riC TO FOL-LIST. 

01242 SURTRACT AB-O i T FROM TOOAYS-DATE GIVING OIFF-DATE, 

01243 IF AGE-FIELD = BALLS' NEXT SENTENCE ELSE IF TODAYS-DATE 

01244 IS LESS T.^AN 30 MOVE FORwAHD-LKT TO PRIM-KEY 

01245 IF FCRWARJ-LKT = TEM-KEY-4 SO TO PERF-EXIT 

01246 ELSE 60 TC FCL-LIST. 

01247 MOVE * PSR KtPCRT * TO REPT-HEAOING. 

01248 IF QUANTITY-FIELD = ^DETAIL* PERFORM DELETE-RPT GO TO ENCK. 

01249 IF QUANTITY-FIELD = ^BmFF# PERFORM OELETE-REPORT GO TO ENCK, 

01250 IF QUANTITY-FIELD = ?tLIST?t PERFORM LIST-RPT, 

01251 ENCK. 

01252 MOVE FCRWARD-LKT TO PRIM-KEY, 

01253 IF FORwARO-LKf = TEM-KEY-4 NEXT SENTENCE ELSE 60 TC 

01254 FCL-LIST. 

01255 IF auANTlTY-FIELO = ;6LIST?s AND DELETE-SUB IS GREATER THAN 1 

01256 GENERATE LiSTlNG-REPORT TERMINATE LIST-PSR-NUM-REPCRT. 

01257 PERF-EXIT. 
> 01258 EXIT. 

M 01259 LIST-RPT SECTION. 
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01260 
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01264 
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01271 

01272 

01273 
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01277 

01278 

01279 

01280 

01281 

01282 

01283 

01284 

01285 

01286 

01287 

01288 

01289 

01290 

01291 

01292 

01293 

01294 

01295 

01296 

01297 

01298 

01299 

01300 

01301 

01302 

01303 

01304 



LIST-PSR-NUM. 

INITIAIE LlST-PS3-NUM-REPCi^T. 

Mf5VE PSR-NUMRt.KT Tc Ll^T-AR^A (DE LETE-SUB) . 

IF OELETE-SUq = ^ GEwEftATt LISTInG-REPCRT MOVE 1 TC 
DELETE-SU"^. 

AOn 1 TC DELFth-SUR. 
LlST-FxIT. 

FXTT. 
aLL-PR«D StCTlCN'. 
ALL-PRrsO-HARA. 

IF PCRWARO-LI-K = TEM-KEY-1 GO TQ ALL-PRCD-EXIT. 

RFAD "^KIM-Sec-LIST INVALID KEY PERFORM PRGGRAM-BUG. 

MGv/E FCHWAKO-l IMK TC 'r£(vi-K£Y-3« PRIM-KEY, 

IF R-SAKT (OS-wU.~iBER) = <iO TO ALL-PRCD-PAPA . 

MOVE Pi^lMAK;Y--=tCCRO TC PR1MARY-R£CCR0T. 

MOVE 1 TC DPLtiTF-sue. 

yCV/E R-SAKT (JS-i'^.jMBFt^) TO ORlM-KEYt TEM-KEY-4, 

PFRFCRH FCLL-uiSr. 

MOVE TtM-KEY-3 rc PRIM-KFY. FC«WAR0-LINK , 

GC TO ALL-P^<C-i-PARA. 
ALL-PRnD-EXlT. 

EXIT. 
NCNE-ThERE SECTIC'i. 
NEIM-ThErE. 

IF CS-NUMBEH = I OTSPLSY * MASTER 

^ NOME There* upcm gui . 

IF CS-NUmBEP = 2 DISPLAY 

ijPGM cur. 

IF GS-NUMBER = 3 DISPLAY * RTS * PROOUCT-NAME * NONE THERE * 

IJPGN OUT. 

fiC TO HHCU-CH'-.CK-j. 
GET-FMPTY-LiST SFCTlnNI. 
6ET-LTST. 

MOVE PRiM-KEY 10 TpM-KEY-^. 

MOVE EMf^TY-HF'Ai)-wKC TO -(F'^Oy-LIST. PRiM-KEY, 

MC\/E M£AOtR--(tCCkD TC TF'vi-HCLf)- 1 . 

BEAD PRIM-SFC-LTST INVAlJO KEf PERFCRM PRCGRAM-BUG. 

IF FCRWARD-Ll -iK = ZERO PERFcKM EXPANO-LIST-FILE. 

MOVE FGRWARD-i.I'vIK TC Ei^PTY-HEAO-REC. 

MOVE TEm-KEY-4 TC OHIM-KEY, 

MOVE T£m-mCLi'-1 to HEaOE'^-RECGRO. 
(3ET-FMPTY-PSR SEcTlOM. 
RET-PSP-E. 

MOVE EMPTY-PS'---FILF TC RFAOY-PSR* PSR-KEY, 

READ PSrt-FILE INVALID KEY PERFORM PRGGRAM-BUQ. 



* MSCS i 



* PRODUCT-NAME 
PRCDUCT-NAME * NcNE THERE * 



g 01305 IF NEXT-EMPTY = ZERO PERFORM EXPAND-PSR-FlLE. 

g 01306 MOVE NEXT-EMPTY TO EMPTY-PSR-FILE« 

^ 01307 EXPAND-LIST-FILE SECTION. 

§ 01308 FXP-LIST. 

01309 CLOSE PRIM-SEC-LIST. 

01310 MOVE ZERO TO TEM-KEY-8. 

01311 ENTER COMPASS. EXPAND* PRIM-SEC-LlST. TEM-KEY-S. 

01312 COMPUTE PRIM-EXPAND = ((TEM-KEY-8 * lOOOOO) ♦ PRlM'-EXPANO) 

01313 OPEN I-O PRIM-3EC-LIST, 
0131^ PERFORM PRIM-KEY-UPDATE. 

01315 MOVE UP-KEY TO PRIM-KEY, TEM-KEY-5. 

01316 PERFORM LiST-l" ILE-EMpTY . 

01317 MOVE TEM-KEY-5 TO FoRWARO-LlNK. 
0131B EXPAND-PSR-FILE StCTIOM. 

01319 EXP-LT<;T. 

013R0 CLOSE PSR-FlLc. 

01321 MOVE ZERO TO TEM-KFY-8. 

01322 FNTER COMPASS' EXPAND' PSR-FILE* TeM-K£Y-8. 

01323 COMPUTE PSR-EXPAND = ((TEM-KEY-8 * lOOOOO) ♦ PSR-EXPANO) . 

01324 OPEN 1-0 PSR-FILE. 

01325 PERFORM pSR-KtY-UPDATE. 

0n26 MOVE UP-KEY TO PSR-KEY, TEM-kEY-5. 

01327 PERFORM PSR-FlLE-FMPTY. 

01328 MOVE TtM-KEY-b TO nEXT-EMPTY, 

01329 EXPAnD-NUM-FILE SECTION. 

01330 EXP-NUM. 

01331 CLOSE NUMBER-flLE. 

01332 ENTER COMPASS? EXPAND* NUMBER-FIUE, TEM-KEY-fiii 

01333 OPEN 1-0 NUMBtH-FILE. 

01334 MOVE NUM-KEY TC TFM-kEY-6. 

01335 MOVE NUM-EXPA^-ii.) TO NUM-KEY~1, 

01336 MOVE ZERO TO i\IUM-KEY-2. 

01337 ADD TEM-KEY-fl 10 MUM-EXPA^^U. 

01338 MOVE ZERO TO NU^Hep-pEC. 

01339 PERFORM NUM-F ILE-ZERC. 

01340 MOVE T£M-KEY-« TO NUM-KFY.. 

01341 LlST-FTLE-tMPTY StCTION. 

01342 LIST-EMPTY. 

01343 PERFORM PRIM-Kt Y-UPOAlE. 

01344 IF UP-KEY r PRIM-EXPAND 60 TO LIST-EMPTY-ENO. 

01345 MOVE UP-KEY TO FORwARU-LIfvlK. 

01346 WRITE HEADER-HECORO INVALIO KEY PERFORM PRCQRAM-BUG. 

01347 MOVE UP-KEY TO PwlM-KEY. 
> 01348 GO TO LIST-EMPTY. 



£2 01349 LlSr-EMPTY-ENO. 



> 01350 MOVE 2:eRC tg fcmward-link. 

^ 01.151 WRITE HEADER--.fcCCRD INVAl 10 KEY PERFORM PROGRAM-BUG. 

0135H PSR-FILE-EMPTY SECTION. 

013B3 pSR-EMoTY. 

01354 PERFORM psH-kEY-UPoATE. 

01355 TF IJP-KEY = P^ft-EXPAND SO TO PSR-EMPTY-END. 

01356 MOVE UP-KEY TO NEXJ-EMPTY. 

01357 WRTTE PSR-FILt-HEAnER INVALID KEY PERFORM PRCGRAM-BUG, 
0135R MOVE UP-KEY TO PSR-KFY. 

01359 GG TC PSR-EMPfY. 

01360 PSR-FMPTY-END. 

01361 MOVE ZERO TO MEXT-EMPTY. 

01362 WRITE PSR-FILf>HEADER INVALID KEY PERFORM PRCGRAM-BUG. 

01363 NUM-FlLE-ZErtO SECHGN. 

01364 nUM-ZERO. 

01365 WRITE NUMBER-^EC INVALID KEY PERFORM PROQRAM-BUG. 

01366 PERFORM NUM-KSY-UPDATE. 

01367 TP NUM-KeY-1 NOT EQUAL TO NUM-EXPAND 60 TO NUM-ZERC. 

01368 UPOATE-KEYS SECTION. 

01369 OHIM-KFY-UPOATE. 

01370 ADD 82 PRiM-KtY (JIVING UP-KEY. 

01371 TF U-Ch GREArtH THAN lBa7 

01372 ADO 1 TO 0-HLK 

01373 MOVE ZERO TO U-CH. 

01374 PSR-KFY-UPUATE. 

01375 ADD 100000 PSN-KEY GIVING UP-KEY. 

01376 NOTE PaRA>5RAPH PERFORM TO ALLOW EASY MODIFICATION 

01377 OF BLOCKIMG PARAMETER. 

01378 NUM-kEY-UPDAtE. 

01379 AOO 12 TO nUM-KEY. 

01380 IF NUM-KEY-? GREATEt=* THAN 493 
013S1 ADO 1 TO (MUM-KFY-l 

013B2 MOVE ZERO TG NlJM-KEY-2. 

01383 P-KEy-UPDATE. 

01384 ADO 82 P-KEY blVTNQ uP-KEY. 

01385 IF U-CH GREATEH THAN 1887 

01386 ADU 1 TO U-8LK 

01387 MOVE ZERO TO U-CH. 

01388 CARD-SFQ-ERR SECTION. 

01389 CARD-SFQ-ERROR. 

o, 01390 MOVE PSR-NUM ?0 HOLD-PSR. 

g 01391 CD-SeO-ERR. 

g 01392 READ SORT-OUT AT END GO TO LAST-CARD. 

g 01393 IF PSR-NUM = HCLO-PSR AiMO COOE-ALPHA . ALPHA-SAVE 60 TC 

o 01394 CD-SEQ-ER-'. 
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01395 
01396 
01397 
01398 
01399 
OUOO 
01401 
0U02 
OU03 
0U04 
0U05 
01A06 
01407 
01408 
01409 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01418 
01419 
01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01428 
01429 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01438 
01439 



MOVE CODE-ALPHA TO AuPHA-SAVE 
GO TO TApE-CHtCK. 
PR0QRAM-8U« SECTION. 
SYSTEM-ERROR. 

DISPLAY *!IRRteULAR CONDITION 

94CNABLE?i. 
DISPLAY jS-IRRtGULAR CONDITION 
*ONABLE?« 
UPON OUT. 
ENTER COMPASS* PRGABCHT. 
INPUT-PROCEDURE SECTION. 
pARA-ONE-TIME. 

READ INFILE-CARD AT END GO TO 

IF 



OCCURRED* 
CCCURReo* 



FILE INTIGRITY QUESTl 
FILE INTI6RITY QUESTl 



3NE-TIME-ALS0. 



LEGAL-CODE RELEASE SCR l-FlLE-REC FROM INREC 
GO To PARrt-ONE-TlME. 
DISPLAY STARS* 01 AGNCSTIC-C n STARS. iNREC UPON OUT. 
GO TO PARA-CNt-TIME. 
CNE-TIME-ALSC. EXIT. 
READ-ROUTINE SECTION. 

PEAO-RCUT. 

READ SORT-CUT AT END QC TO READ-RCUT-2. 

IF CODE-ALPHA = ALPHA-SAVE 60 TO HEAD-ROUT-END. 
rEAD-ROUT-1. 

GO TO ADD-ENO? CHANGE-ENO. TaPE-CHECK OEf'ENDINQ ON 
60-KEY. 
ReAD-RoUT-2. 

MOVE *1* TO COOE-AlPhA. 

GO TO HEAD-RoUT-1. 
PEAD-ROUT-END. 

EXIT. 
UTILITY SECTION. 
U-PROCESSOR. 



U-FIELD = 

u-field = 
u-field = 
u-fielo = 

U-FIELO = 
STARS* 



/LOAD 
jiQUMP 



FILES-,* 

FILES'^ 
^COLLECT FILES* 
^ESTABLISH riLESgt 
^^LTST FILES;* 
OIAGNCSTIC-U. STARS. 



60 
GO 
Go 
60 
GO 



TO 
TO 
TO 
TO 
TO 



IF 

TF 

IF 

IF 

IF 

DISPLAY STARS* 01 AGNCST Ic-U . STARS. REC-U. 
U-P«CC-l. 

READ SORT-CUT AT EnO 
GO To ALTt'H-STCP. 

IF CODE-ALPHA = *$^ GO TO U-PROCESSCR. 

MOVE CODE-ALPHA TO AlPHA-SAVE* 

GO TO FiLE-OptN. 
LOAD SECTION. 



LOAD. 

DUMP. 

COLLECT. 

ESTABLISH. 

FILE-LIST. 



> 0U40 1.0-3], 

^ OUAl PERFORM OPERA FGft-CHECK. 

0U42 FNTER COMPASS* f<LFASE» PRIM-SEC-LIST, PSR-FILE» NUMBER-FILE. 

01443 FNTER COMpASS» LOAD. PR IM-SEC-UST, PSR-FILE, NUMBER-FILE. 

01444 <5C TO U-pRCC-1. 

01445 nUMP SFCTICN. 

01446 DP-1, 

0l^^7 ALTER ALTER-srCP TO PRCCFEU TO DUMP-FILES. 

01448 (50 TO U-pRCC-1. 

Ol^**^ NOTE FILES ARt DUMPED CNlV AT END OF RUN. 

01450 nUMP„FTLES. 

Ol^'il CPPN INPUT PRIM-SEC-UST, PSR-FILE. NUMBER-FILE. 

°|^^2 PMTER COMPASS. UUMP, PR IM-SEC-LIST , PSR-FILE. NUMBER-FILE. 

01^^3 CLOSE PHIM-SEC-LIST» PSR-FILE. NUM8ER-FILE. 

01454 r,0 TO STOP-PAH. 

Ol'^SS FILE»LTST SECTION. 

01456 FILE-Ll. 

^^^^7 QPfTN INPUT PRIM-SEC-LIST. PSR-FILE. NUMBER-FILE. 

01^58 MOVE SYSTEM-DATE To DATE-STCRE. 

01459 MOVE SrSTEM-TlME To TIME-STORE. 

01460 DISPLAY 

°J^fi *1 PSR LIST FILE LISTING. DATE * DATE-STORE 

0146? t, TiMtl i TIME-STORE *,* 

01463 UPON OUT. 

01^*^* DISPLAY ^Ojt UPON OUT. 

Ol'^'^S MOVE SKl-CHO TO NUM-KpY. 

01466 FILE-L?. 

^l^^'^ READ NUMBER-FU.E INVALID KEY GO TO FILE-L3. 

Ot-^<^B DISPLAY SPAct NUM-KEY SPACE NUM8ER-REC UPON OUT. 

01469 PERFORM NUM-KcY-UPDATE. 

01470 GO TO FILE-L2- 

01471 FILE-LT. 

01472 CLOSE NUM8ER-rlLE. 

01473 MOVE SYSTEM-TIME TO TIME-STORE. 

01474 MOVE SYSTEM-DATE TO DATE-STORE. 

01475 DISPLAY 

Ol^"^* *\ LIST FILE LISTING. DATE t DATE-STORE 

01477 t, TIMt * TIMF-STCRE *»* 

01478 UPON OUT. 

01479 DISPLAY HO* UPON OUT. 

a, 01480 MOVE BKLCHO TC PRIM-KEY. 

g 01481 FILE-L4. 

g 01482 READ PRIM-SEC-LIST INVALID KEY GO TC FILE-L5. 

S °, P DISPLAY SPACE HRIM-KEY SPACE HEAOER-RECORD UPON CUT. 

o 01484 PERFORM PRIM-KEY-UpDaTE. 



g 01485 MOVE UH-KEY T'O PfUM-KEY. 



0U86 GO TC FILE-L4, 



o 

N> 

g 01487 FIL£-I,=;. 

§ 01488 CLOSE f'WiM-SEC-LIST. 

01489 MOVE SYSTEM-0«r£ TO nATE-STORE, 

014=^0 MOVE SYSTEM-TIME TO TiME-STORE. 

01491 nisPLAr 

0149^ *l PSR FILE LISTTNQ DATE * DATE-STORE 

01493 *. TlMt * TIK^E-STOHE *** 

01494 UPON CUT, 

01495 MOVE i^Kl-CHO TC PSR-KtY. 

01496 FILE-Lft. 

01497 READ PSR-FILE t'vlVALlD KEY "sO TC FlLE-L?. 

01498 Dl^iPLAY *Q* PS^-KFY SPACE PSR-PlLEl-MCVE! PSR-F1LE2-MCVE 

01499 UPON CUT. 

01500 nisPLAY * DESCRIPTIONS DELETet),?« UPON OUT. 

01501 nlSPl-AY * ,* i^SR-FIlE3-MCVE UPON OUT. 
0150? PERFCRfl PSR-KtY-UPDATE. 

01503 MOVE UP-KEY TO PSH-KEY, 

01504 RO TO t-'lLE-Lft. 

01505 FILE-L7. 

01506 CLOSE PSR-FILf-. 

01507 DISPLAY *l* IJ^^ON OUT. 

01508 <?C TO U-pftCC-l. 

01509 OP£RaTO«-CMEcK SECTION. 

01510 CPER-CK. 

01511 DISPLAY ;t RESf-'CND CK IF FILES ARE TC BE RELEASED^. 

01512 ACCEPT RFL-FH-KS. 

01513 TF REL-FlLFS IS NOT E'-iUAL TC *0K* DISPLAY SPACE REC-U 

01514 SPACE * Oi-'EHATcR OHCP* UPON OUT STOP RUN. 

01515 ESTABLISH SEcTICN. 

01516 ESTAB-1, 

01517 PERFORM OPERA (Ci^-CHECK. 

01518 ENTER COMPASS. rlfase» pr;m-s£c-list i psr-filE» number-file. 

01519 FNTER COMPASS* ALLOCATE* 

01520 PRIM-SEC-LIST* ♦300» 

01521 PSK-FILE, +100, 

01522 NUMbER-FiLt, *100. 

01523 OPEN OUTPUT PrtlM-SFC-LIST. PSR-FILE» NUMBER-FILE. 

01524 MOVE 8'<1-CM0 IC PRIM-KEY, PSR-KEYt NUM-KEY. 

01525 MOVE U-BIAS IC rtlAS, 

01526 MOVE 101 TO NU|vi-exPAND. 

01527 WRITE NUMBER-REC FROM NUM8ER*FlLE-ST0RAGE 
> 01528 INVALID KEY PERFORM pRCGRAM-BUQ. 

M 01529 PERFCR'^ NUM-KEY-UPDATE. 

en 
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as 



01530 PERFORM NUM-f-lLE-ZERC 

01531 CLOSE NUMBER-FILE. 



01532 Mov/E *■ PSR FILE HFAnER?* TO P-F-H-S-H. 

01533 PFqFcR'I PSR-^EY-UPOaTE. 

01534 MOVE UP-KEY TO EMPTy-PSR-FIlE» FIRST-PSR-EnT. 

01535 MOVE lOlOOOOO TO PSH-FXPAnD. 

01536 WRITE RSR-FlL^i-hiEC FPO« PSR-FILE-HEADER-STORAQE 

01537 INVAlIO KtY OERpORM PRoGHAM-BUG. 
0153H MOV/fT SPACES 10 PSR-FlLE-HEADER-STORAQE. 

01539 MOVE UP-KEY 10 PSR-KEY. 

01540 PERFORM PSR-t- ILF-FMP TY . 

01541 CLOSE PSR-FlLt. 

0154? MOwE t LIST t-ILE HEADER* TO H-R-S. 

01543 MOVE PRiM-KEY TO h-P-S-SAK. 

01544 pfrpF«!9M pR IM-kEY-UPDATE . 

01545 MOVE UP-KEY 10 PLm-SAK, PRIm-KEY. 

01546 PFRFORi'^ PRIM-KE Y-UPDATF . 

01547 MOVE UP-KEY 10 EmPTY-HEAD-REC. 

01548 MOVE 3010000* TO PPIi^^-FXPAnO. 

01549 MOVE HKl-CHO TO PRlM-KEy 

01550 WRITE H£AOER-:-'EC0Rn FHOW hEADER-RECORD-STCRAGE 

01551 INVALID Kf-Y PEPFOf^l^ P'^OQRAM-BUS. 

0155? MOVE Rlh-sak to PRIM-KEY. empty-heao-rfc, H-R-S-SAK. 

01553 MOVE iJEPO To PRIm-EXHAno. 

01554 MOVE ;* PRIMARY PRODUCT LIST;* TO H-R-S, 

01555 WRITE HEADER-rte CORD FROM MEADER-RfcCORn-STCRAGE 

01556 INVALID KtY PERrORi'' PROGRA'^i-nUG, 

01557 MOVE SPACES TO HEAdEP-HECOhO. 

01558 PERFORM PRIM-KEY-UdOaTF. 

01559 MOVE UP-KEY TO PPIM-KEY. 

01560 MOVE 30100000 TO PRlM-EX»^ANn« 

01561 PEPFORi"! LiST-f JiLE-FMPTY. 

01562 CLOSE PRIM-SEC-LIST. 

01563 fiO TC U-PROC-1. 

01564 COLLECT SECTION. 

01565 COLL-BFGIN. 

01566 OPrN I-O PRI 4-SFC-LlST , PSR-FILE« NUMBER-FILE. 

01567 MOVE »Kl-CHO TO pRT'-^-KFY. P-KEY« NUM-KEY. 

01568 READ PKlM-SEC-LlST In To HEAOER-RECORO-STORAGE 

01569 INVALID Kr.Y PERFORi^ Pt?OGRAM-BUG. 

§ 01570 READ NUMBER-FILE InTO NUMB£R-FILE-ST0RAGE INVALID KEY PERFORM 

g 01571 PPOeRAM-fliJti 

g 01572 MOVE PRIM-EXP«ND TC IJP-KFY. 

§ 01573 SUHTRACT 1 FROM U-PLK. 

01574 SUBTRACT i FROM NUM-pxPAND GIVING 8LK. 



g 01575 ENTER COMPASS* ALLOCATE* P-S-HST» U-BLKt 



o 



fS 01576 N-FILE. BLK. 



to 



^ 01577 OPEN I-O P-S-LIST, 

g 01578 OPEN OUTPUT N-FILE, 



o 



01579 C0LL-P9IMARY. 

01580 MOVE PLH-SAK TO PRIM-KEY. 

01581 PERFORM P-KEY-UPOATF. 

01582 MOVE UP-KEY TO PLH-SAK. 

01583 WPITE T-Rfc.C-2 FROM riEAOER-ReCORD-STCRAGE 
0158^ INVALiU KtY PERFOR-^ P«0QRAM-BUG. 

01565 READ PKIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

011586 IF FOR^ARD-LIiMK = BACK'^ARO-LINK AND HEADER-SAK 

01587 RO TO COLL-NUI'I-EnO. 

01588 MOVE FORWARD-LINK TO ^'PIM-KEV. 

01589 MOVE BACKWARD-LINK TO TEM~KEy-1. 

01590 MOVE UP-KEY TO P-KEY, HEADER-SAK, TEM-KEY-'<? 

01591 PERFORM P-KEY-UPDATE. 

01592 MOVE UP-KEY TO FOHWARU-LI^K. 

01593 V^RTTE T-REC-2 FROM H;-l IMARY-Rf CORD 

01594 INVALID KEY PEPFCR'^ RPCGRAM-rtUtt. 

01595 COLL-PRlM-1. 

01596 IF PRIM-KEY = TEM-KFY-1 viO TO CCLL-PRIM-2, 

01597 PEAO PRIM-SEC-LIST iNVaLIO KEY PERFORM PR06RAM-BU6* 

01598 MOVE FORWARD-LINK TO PRlM-KEY. 

01599 MOVE P-KEY TO BACKWARD-LIMK. 

01600 MOVE TEM-KEY-<:; TO HEAUEH-SAK, 

01601 MOVE UP-KEY TO P-KEY. 

01602 PERFORH P-KEY-UPDATE. 

01603 MOVE UP-KEY TO FORWARD-L TNK. 
0160* WRITE T-REC-? FROM PHIMARY-RECORD 

01605 INVALID KtY perfcRM PROGRAM-bUQ. 

01606 GO TO CGLU-PRlM-1. 

01607 COLL-PRlM-2. 

01608 READ PRlM-SFC-LlST INVALID KEY PERFORM PRCQRAM-BU0. 

01609 MOVE P-KEY TO BACKWARD-LINK. 

01610 MOVE TEM-KEY-ii TO FORWaRO-LINK* HEADER-SAK. 

01611 MOVE UP-KtY TO P-KEY, TEM-KEY-7. 

01612 WRITE T-REC-2 FROM PRIMARY-RECORD 

01613 INVALID KEY PERFORM pROGRAM-BUG. 

01614 MOWE TEM-KEY-^ TO P-kEY. 

01615 READ P-S-LIST INTO PRIMARY-RECORD 

01616 INVALID KEY PERFORM PfiOGRAM-BUQ. 

01617 MOVE TEM-KEY-r TO BACK'kARD-LINK. 

> 01618 WRITE T-REC-2 FROM PRIMARY-RECORD 

w 01619 INVALID KEY OERFoRM pROGRAM-BUG. 
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01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01628 
01629 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01638 
01639 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01648 
01649 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01658 
01659 
01660 
01661 
01662 
01663 
01664 



MOVE FCRWARD-LINK TC t^-KEYf TEM-KEY-6. 

MOVE HEADER-SAK TO TF!^-KFY-2, 
CCLL-SEC-1. 

IF P-KEY = TtlM-KEY-? GC TO CCLL-SEC-DONE. 

READ P-S-LIST IMTC PRIMARY-RECOROT 
INVALID KEY PFPFC'^N' PROQRAM-gUG. 

IF MASTErt-SAKT = ZEPC GO TC CCuL-SEC'2. 

MOVE 1 Tc I. 

MOVE TEM-KEY-/ TO P-KEY. 

PERFORM P-KEY-UPDATE. 

MOVE MASTER-3AKT TC PPIM-KEY. 

MOVE UP-KEY TC MASTER-SAkT. 

PERFORM LiST-CCLLECT. 
COLL-SFC-2. 

IF MSOS-SAKT = ZERO GO TC COLL-SEC-3. 

MOVE 2 Tc I. 

MOVE TEM-KEY-if TC P-KFY, 

PERFORM P-KEY-UPDATE. 

MOVE MSOS-SAKf TC PRIM-KFY. 

MOVE UP-KEY TO NlSCS-«;AKT, 

PERFORM LIST-CCLLFCT. 
CCLL-SFC-3. 

TF RTS-SAKT = ZfMO GC Tc CClL-SEC-4, 

MOVE 3 TC I. 

MOVE TEM-KEY-/ TO P-Kfiv. 

PERFORM P-KEY-UPDATE. 

MOVE RTS-SAKT TC PRIM-KEY. 

MOVE UP-KEY TO RTS-SAKT. 

PERFORM LIST-COLLECT, 
COLL-SEC-4. 

MOVE TEM-KEY-6 TO P-KtY. 

WRITE T-Rec-2 FROM PWIMARY-RECCRDT 
INVALID KtY PERFC^I^ PROGRAM-BUG. 

MOVE FCR-LINKT TC P-k£Y» TEM-KEY-6. 

(50 to coll-sec-1. 
ccll-sec-oonf. 

move tem-key-^ tc p-key. 
perform p-key-update. 

MOVE UP-KEY TO EMPTY-riEAn-HEC. 
MOVE 8K1-CH0 TC PRIM-KEY. 

WRITE HEAOER-rie.CGRD FROM HEAdER-RECCRD-STCRAGE 
INVALID KEY PcRFORM PRCGRaM-rUG. 
MOVE PLH-SAK IC P-KEY* 
CCLL-SEC-DCNE-1. 

IF P-KEY = fiMPTY-HEAD-REC GO TC COLL-SEC-DCNE-2. 



OS 01665 PERFORM PRIM-KEY-UPOATE. 

I 01666 MOVE UP-KEY TO PRIM-KEY. 

I 01667 READ P-S-LIST INTO PRIMARY"REC0RD 

o 01668 INVALID KtY PERFORM PROQRAM-BUG. 

® 01669 PERFORM P-KEY-UPOATE. 

01670 MOVE UP-KEY TO P-KEY. 

01671 RO TO COLL-SEC-DONE-1. 

01672 CCLL-SEC-DCNE-2. 

01673 MOVE SPACtS TO HEADER-RECQRO. 

01674 PERFORM LiST-FILE-EMpTY. 

01675 CLOSE PRIM-SEC-LIST t P-S-LIST. 

01ft76 IF U-eiAS NOT EQUAL TO SPACES GO TO COLL-NUM-END* 

01677 WRITE T-REC-1 FROM NUMBER-FILE-STCRa6E 

01678 INVALID KEY PEPFC'^W PROGRAM-BUG. 

01679 COLL-NUM-1. 

01680 PERFORM MUM-KtY-UPDATE. 

01681 READ NUMBER-FILE INVALID KEY GO TO COLL-NUM-gNO* 

01682 IF NUMBER-REC NOT = ZERO SO TO COLL-NUM-?. 

01683 /snn 1 TO BIAS. 

01684 GO TO CCLL-NUM-1. 

01685 CCLL-NUM-2. 

01686 WRITE T-REC-1 FROM NUMbKR-REC 

01687 INVALID KtY PEPFCRi^ PROQRAM-BUG. 

01688 IF NUM-KEY-1 = NUM-E'^PANO QO TO COLL-NUM-S. 

01689 PERFORM nUM-KEY-UPDATE. 

Q1690 peao number-fxle Invalid key perform program*8u6* 

01691 PO TO C0lL-NU''^-2. 

01692 COLL-NUM-3. 

01693 MOVE ZEKO TO '-jUMBER-REC. 

01694 WRITE T-hJEC-1 FROm NUMs^ER-REC 

01695 INVALID KtY GO TO COLL-NUM-4, 

01696 RO TO COlL-NU^-1-3, 

01697 CCLL-NUM-4. 

01698 CLOSE N-FILE. 

01699 Oi^FN INPUT N-FILE. 

01700 PFAD N-FILE t^f END PERFORM PROGRftM-BUGi 

01701 MOVE 6K1-Cri0 TO NUm-kEY. 

01702 WRITE NUmB£R-«EC FrOm NUmBER-FILE-STCRAGE 

01703 INVALID KtY PERFORM PROGRAH-BUG. 

01704 CCLL-NllM-5. 

01705 PERFORM NUM-KtY-UPDATE. 

01706 IF NUM-kEY = NUM^EXPAND GO TO CCLL-NUM-ENO* 

01707 READ N-FILE AT END PERFORM PROGRAM-BUG, 
> 01708 GO TO CClL-NUM-5. 

" 01709 COLL-Nl)M-END. 

01710 CLOSE NUMBER-FILE, N-FILF. 



^ 01711 ENTER COMPASS, RLEASF, P-S-LIST, N-FILE. 

£; 01712 RC TO U-PHCC-1. 
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01713 LIST-CCLLECT SECTION. 

017U lC-]. 

01715 READ PRIM-SEC-LIST INVALTO KEY PERFORM PR0(5RAM-BUG. 

01716 MOVE TEM-KEY-o TO HEaDER-LINK. 

01717 IF FORWARU-I.INK = BACKWARD-LINK AND HEADER-SAK 

01718 MOVE UP-KtY TO FCR>»iARD-LINK , BACKwARD-LINK r 

01719 HEAOER-SAK, P-KEY, TEM-KEY-7 GO TO LC-E. 

01720 MCVE BACkwAkD-LInk TC TEM-KEy-'5. 

01721 MOVE UP-KEY TO P-KFY, HEAOER-SAK, TEM-KEY-/^. 

01722 PERFORIN P-KEY-UPDaTF. 

01723 MOVE FORwANO-LINK TO PRTM-KFY. 

0172^ MOVE UP-KEY rc forwa»^d-ltnk. 

01725 WRITE T-REC-<d FRC^ SECONOARY-RECORD 

01726 INVALID KtY PrRFORM PROGRaM-BJG, 

01727 LC-2. 

0172S TF PRIM-KEY = TEM-KFY-5 GO TO LC-3, 

01729 RITfto PRlM-SEc-LIST INVALID KEY PERFORM PROGRAM-BUG. 

01730 MOVE FORWARO-LINK TO PRIM-KEY. 

01731 MOVE P-KEY To bACKisiARO-LINK. 

01732 MOVE UP-KEY TO P-KEY. 

01733 DERFORf^ P-KEY-UPDATE. 

01734 MOVE UP-KhY TO FORWARU-LIMK. 

01735 MOVE TEM-KEY--^ TO hEaDER-SAK. 

01736 WRITE T-REC-i FPOM SECONDaRY-RECORD 

01737 INVALID KtY PEsFoRM PROGRAM-BUG. 

01738 MOVE PSR-SAK fC oSR-kEY. 

01739 READ PSR-FILE INVALID KEY PERFORM PROGRAM-guG. 

01740 MOVE P-KEY TO CP-KEY (I). 

01741 WRITE PSR-FILt-REC INVALID KEY PERFORM PROGRAM-BUG. 

01742 PIO TO LC-2. 

01743 LC-3. 

01744 READ PRIM-SEC-LIST INVALID KEY PERFORM PROfiPAM-BUG. 

01745 MOVE TEM-KEY--* TO FORWARO-LINK , HEADER-SAK. 

01746 MOVE P-KEY TO BACKwArU-LINK. 

01747 MOVE UP-KEY TO P-KFY, TEm-KEY-7. 

01748 WRITE T-REC-^e FROM SECONOaHY-RECORD 

01749 INVALID KEY PERFORM PRGGRAM-BUQ, 

01750 MOVE PSR-SAK TO PSR-KEY. 

01751 READ PSR-FILE INVALID KEY PERFORM PRCGRAM-^UG. 

01752 MOVE P-KEY fC CP-KFY (I). 

01753 WRITE PSr-FILE-REC INVALID KEY PERFORM PROGRAM-BUG. 
01764 MOVE TEm-KEY-4 TO P-KEY. 

01755 READ P-S-LIST INTO SECONDARY-RECORD 



g 0175^ INVALID KtY PI=:RFC«N' PrtOGRAM-9U«. 

t:§ 01757 MOVE TEM-KEY-r TO BACKHAPO-'LINK. 



to 



01758 LC-E, 



g 01759 WTTE T-REC-2 FHCM SECONDARY-RECORD 

0]7ft0 INVALIO i^EY PERFORM RROGRAM-BUG* 

01761 END PROGRAM. 



> 
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COBOL CHARACTER SET 

The characters recognized by COBOL include the letters of the alphabet, digits, and those characters, 
commonly called symbols, which are used in expressions, relations and editing. The complete 
computer character set consists of the 63 characters listed iti the COBOL collating sequence 
(appendix D) . 

Character Set for Words 

Letters A-Z, digits 0-9, and hyphen (-) 

Character Set for Punctuation 



> 


comma 


> 


semicolon 


. 


period 


Tr 


quotation mark 


{ 


left parenthesis 


) 


right parenthesis 




space 


Character Set for Arithmetic Operators 


+ 


addition 


- 


subtraction 


* 


multiplication 


/ 


division 


** 


exponentiation 
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Character Set for Relational Operators 



> 


greater than 


< 


less than 


= 


equal to 


Character Set for Editing 


B 


space 





zero 


+ 


plus 


- 


minus 


OR 


credit 


DB 


debit 


Z 


zero suppress 


* 


check protect 


$ 


currency sign 


> 


comma (decimal point) 


• 


period (decimal point) 


/ 


slash 


WORDS 





A word is composed of a combination of not more than 30 characters chosen from the character set 
for words. The word cannot begin nor end with a hyphen. The space character is not allowed in a 
word; the space is a word separator. Wherever a space is used, more than one may be used. A 
word is ended by a space, or by a period, right parenthesis, comma, or semicolon followed by a 
space. A space must not immediately follow a left parenthesis or a beginning quotation mark. A 
space must not immediately precede a right parenthesis or an ending quotation mark except when 
the space is included in a literal. 

Words are specified by the user or they are COBOL reserved words. User-defined words include 
all names assipied by the user to elements in the program; they must never be ivom the set of 
COBOL reserved words. 

Literals are also considered user-defined words, but they are not restricted to the limits imposed 
on other words. 
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Data Name 

A data name is a word containing at least one alphabetic character. It names a data item in the Data 
Division (filenames, library names, mnemonic names, report names are all formed like data 
names; their functions are defined in context.) 

Examples: 

QUANTITY-ON-HAND MESSAGE 

LAST-YEAR-PROrrr lOOA 

ITEM-NUMBER FILE-1 

Condition Name 

A condition name is assigned to a value, set of values or rai^e of values, within the complete set of 
values that a data item may assume. The condition name must contain at least one alphabetic char- 
acter. Each condition name must be unique, or be made imique through qualification. The associ- 
ated data item may be the qualifier for any of its condition names. If references to this data item 
require indexing, subscripting or qualification, references to any of its condition names require 
the same combination of indexing, subscriptlcg or cpialification. x *\jifi,^ ,— |C 

Example: M^p^ ' J^*^ '^ ^>^ ^ 




GRADE 

88 GRADE -ONE VALUE IS 1. 
88 GRADE-TWO VALUE IS 2. 

88 GRADE-SCHOOL VALUES ARE 1 THRU 6. 

88 JUNIOR-HIGH VALUES ARE 7 THRU 9. 

88 HIGH-SCHOOL VALUES ARE 10 THRU 12. 

88 GRADE-ERROR VALUES ARE 13 THRU 99. 

A condition name may be used in conditions as an abbreviation for the relation condition. For 
example: IF GRADE-ONE . . . 



Procedure Name 

A procedure name identifies a paragraph or a section in the Procedure Division. A procedure name 
may be composed solely of numeric characters. Two numeric procedure names are equivalent 
only if they are composed of the same number of digits and have the same value; 0023 is not 
equivalent to 23 . 

Examples: 

PROC-1. A-INPUT SECTION. 
002. 100 SECTION. 
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Identifier 

An identifier is a data name followed, as required, by the syntactically correct combination of 
qualifiers, subscripts, or indexes necessary to make unique reference to a data item. 

Examples : 

DAY OF MASTER-DATE 
FIRST m GRADE-ONE 
MALE-FEMALE (2,5,1) 



Qualifier 

Every name in a source program must be unique, either because no other name has the identical 
spelling, or because the name exists within a hierarchy of names, such that it can be made unique 
by mentioning one or more of the higher levels of the hierarchy. The higher levels are called 
qualifiers when used in this way. The qualification process is performed by writing IN or OF after 
the name followed by a qualifier. The choice between IN or OF is based on readability; they are 
logically equivalent. Only sufficient qualification must be mentioned to make the name unique. 
Whenever the data item or paragraph is referenced, any necessary qualifiers must be written as 
psiTt of the name. 



Literal 

A literal is a string of characters. Literals may be numeric or non-numeric. 

Non-Numeric Literal 

A non-numeric literal is a string of any characters allowable in the computer's character set 
(including reserved words but excluding the quotation mark) and bounded by quotation marks. The 
value of a non-numeric literal is the string of characters itself, excluding the quotation marks. 
Any spaces included between the quotation marks are part of the non-numeric literal and, therefore, 
are part of the value. All non-numeric literals are classed as alphanumeric. They may contain 
from 1 to 120 characters excluding the quotes. 

Examples of non-numeric literals: 

"LINE -COUNTER" 

"PAGE 144 IS MISSING" 

"A B C D E F" 

"-125.56" 

"PAGE NUMBER IS " 

The literal "-125. 56" is not the same as the literal -125. 56; the quotation marks make it a non- 
numeric literal and prevent it from being used for computation. 
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Numeric Literal 

A numeric literal is a string of characters chosen from digits thru 9, the plus sign, the minus sign, 
and the decimal point. Its value is the algebraic quantity represented by the characters in the 
literal. Every numeric literal is in the numeric category. 

Bules for forming numeric literals: 

• It must contain at least one and not more than 18 digits. 

• It can contain only one sign character. If a sign is used, it must appear as the leftmost 
character of the literal. An unsigned literal is positive, 

• It can contain only one decimal point. The decimal point is treated as an assumed decimal 
point, and may appear anjrwhere in the literal except as the rightmost character. A literal 
without a decimal point is an integer. 

If a literal conforms to the rules for forming a nimierlc literal, but is enclosed in quotation marks, 
it is a non-numeric literal. 

Examples of numeric literals : 

15067893251459 
-12572.6 

+25675 
1435.89 

Floating Point Literal 

A floating point literal is a numeric literal written in the following form. 

[ ± ] coefficient E {± j exponent 

Rules for floating-point literals: 

• The coefficient may have from one to eleven digits in the range ot 0^ n^ 2 -1 and a 
decimal point. 

• The coefficient is followed Immediately by the symbol E, followed by an optional plus or 
minus sign, followed by one to three numeric digits which Indicate the power of the ex- 
ponent. A zero exponent may be written as 0, 00, or 000. An unsigned exponent is 
assumed to be positive. The exponent is to the base 10 and may range from through 308. 

• The plus and minus signs preceding the coefficient and exponent are optional. All other 
elements of the format are required. 

• A floating point literal must appear as a continuous string of characters with no intervening 
spaces. 
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Examples 



15.2E5 


+2.725E-6 


12.4E10 


-4.0E+12 


-.425E101 


-5.124E-20 


+30E-101 


405E+305 


60.5E0 


.68719476735E308 


Reserved Words 





Reserved words defined in appendix C are used for syntactical purposes and may not appear as 
user-defined words. Reserved words are used as key words, optional words, and connectives. 



Key Word 

A word that is required when it appears io a source program format is called a key word. Within 
each format, key words are uppercase and underlined. All verbs, for example, are key words 
which must be included to designate the operation to be performed. 



Optional Words 

Uppercase words in a format that are not underlined are called optional words since they may appear 
or not as the user chooses. The presence or absence of each optional word within a format does not 
affect the compiler's translation. An optional word must not be misspelled or replaced by another 
word not explicitly stated to be its equivalent. 



Special Registers 

The word TALLY is the name of a special register implicitly described as a five-digit integer. 
TALLY is used primarily to hold information produced by the EXAMINE statement. TALLY may 
also be used as a data name wherever an elementary data item of integral value may appear. 

The special registers SYSTEM-DATE and SYSTEM-TIME are restricted for use as the subjects of 
MOVE statements in the Procedure Division and the objects of SOURCE clauses in the Report Section 
of the Data Division; they may not be used as literals. In a MOVE statement, the receiving field 
must have a PICTURE of X(8). Likewise, in the Report Section, the elementary item description 
containing the SOURCE clause must have a PICTURE clause of X(8) . 

SYSTEM-DATE represents the current date in the form mm/dd/yy: mm = month, dd = day, 

yy = year. SYSTEM-TIME represents the time of day when the object program begins execution. 

Its format is hh/mm/ss: hh = hour, mm = minute, ss = second. 
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Figurative Constants 

Certain constants, called figurative constants, have been assigned fixed data names. Figurative 
constants must not be bounded by quotation marks, or they become non-numeric literals. The 
singular and plural forms of figurative constants are equivalent and may be used interchangeably. 



Figurative Constant 

ZERO 

ZEROS 

ZEROES 



Meaning 

Represents the value 0, or one or more of the character 0, dependii^ 
on context. 



SPACE 
SPACES 



Represents one or more blanks or spaces. 



HIGH-VALUE 
HIGH-VA LUES 



Represents one or more of the character with the highest value in 
the COBOL collating sequence. 



LOW-VALUE 
LOW-VALUES 



Represents one or more of the character with the lowest value in 
the COBOL collating sequence. 



QUOTE 
QUOTES 



Represents one or more of the character " or the character sub- 
stituted for it on computers that do not use a quotation mark. The 
word QUOTE cannot be used in place of a quotation mark in a source 
program to bound a non-numeric literal. 



ALL literal 



Represents one or more of the strii^ of characters comprising the 
literal. The literal must be either a non-numeric literal or a figura- 
tive constant other than ALL literal. When a figurative constant is 
used, the word ALL is redundant and may be used for readability 
only. 
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When a figurative constant represents a string of one or more characters, the length of the string is 
set by the compiler according to the following rules: 

• When the figurative constant is moved to or compared with another data item, its character 
string is repeated character by character on the right until the size of the resultant string 
is equal to the size in characters of the associated data item. 

• When the figurative constant appears in a DISPLAY, EXAMINE or STOP statement, the 
length of the string is one character. ALL literal may not be used with DISPLAY, 
EXAMINE or STOP. 

A figurative constant can be used any place where a literal appears in the format. When the literal 
is restricted to numeric characters, ZEEO (ZEROS) (ZEROES) is the only figurative constant per- 
mitted. 



Examples : 

MOVE QUOTES TO AREA -A 



Assuming AREA-A consists of five character positions, 
this statement moves the configuration """"" to 
AREA-A. 



DISPLAY QUOTE "NAME" QUOTE 
MOVE SPACES TO TITLE 

MOVE ALL "4" TO COUNT -FIELD 



This statement results in "NAME" being displayed. 

The item named TITLE is set to all spaces (or 
blanks) . 

Assuming COUNT-FIELD has a picture of X(4), a 4 
is placed in each position of the item named COUNT - 
FIELD. 



IF ALL "4" IS EQUAL TO COUNT-FIELD. 



Assuming COUNT -FIELD has a picture of 9(4) or 
X(4), this compares 4444 with the value of COUNT- 
FIELD. 



MOVE ZEROS TO REGISTER 



This places in each position of the item named 
REGISTER. 



MOVE ALL "NO-OP" to EMPTY 



Assuming EMPTY consists of 12 character positions, 
EMPTY is filled with repetitions of the characters of 
the non-numeric literal, NO-OPNO-OPNO. 
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Connectives 

There are three types of connectives: 

• Qualifiers used to associate a data name or paragraph name with its qualifier: OF, IN. 

• A series connective that links two or more consecutive operands: , (comma) or two or 
more consecutive clauses: ; (semicolon). 

• Logical connectives used in the formation of conditions: AND, OR, AND NOT, OR NOT. 

Examples: 

A IS GREATER THAN B 
A IS GREATER B 
A GREATER THAN B 
A GREATER B 

All these expressions are correct and have the same meaning whether the optionax worus IS anu 
THAN are used or not. 

PUNCTUATION 

The punctuation symbols, period, comma, and semicolon, are shown within the formats. All division 
and section headers are followed by a period with the remainder of the line blank. Specific rules for 
each division follow: 

Identification Division : Commas and semicolons may be used for readability within comment 
paragraphs; they are not shown in the formats. Each paragraph and paragraph name must be 
terminated by a period followed by a space. 

Enviromnent Division: Commas and semicolons shown in the formats are optional . Each 
paragraph and paragraph name must terminate with a period followed by a space. 

Data Division : Commas and semicolons shown in the formats are optional. Each file and data 
description entry must be terminated by a period. 

Procedure Division : Commas shown in the formats are optional. A semicolon may be used 
between statements in a sentence. In addition, the semicolon may appear in an IF statement 
immediately following the condition and also immediately preceding the keyword ELSE. Each 
sentence must be terminated by a period and a space. Procedure names are terminated by a 
period and one or more spaces. 
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When a period, semicolon, or comma is used, It Immediately follows a word and must be immediately 
followed by a space. A beginning quotation mark is not followed by a space nor is an ending quotation 
mark preceded by a space unless the space is part of the nonnumeric literal. A left parenthesis is 
followed by a space only when followed by + - (; in these cases a space is required. A right 
parenthesis is preceded by a space only when it is preceded by a ) . A right parenthesis is always 
followed by a space. Parentheses must be paired. 
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COBOL RESERVED WORD LIST 



ACCEPT 


CF 


CURRENCY 


EXAMINE 


ACCESS 


CH 


DATA 


EXIT 


ACCESS-PRIVACY 


CHARACTERS 


DATE-COMPILED 


FD 


ACTUAL 


CLOSE 


DATE-WRITTEN 


FILE 


ADD 


COBOL 


DE 


FILE-CONTROL 


ADDRESS 


CODE 


DECIMAL 


FILE-LIMIT 


ADVANCING 


K^KJ A-iiJ aLVi 


DECDAAL-POINT 


FILE-LIMITS 


AFTER 


COMMA 


DECLARATIVES 


FILLER 


ALL 


COMMON-STORAGE 


DENSITY 


FINAL 


ALPHABETIC 


COMP 


DEPENDING 


FESriS 


ALPHANUMERIC 


COMP-I 


DESCENDING 


FIRST 


ALTER 


COMP-2 


DETAIL 


FOOTING 


ALTERNATE 


COMPASS 


DISK 


FOR 


AND 


COMPUTATIONAL 


DISPLAY 


FORTRAN 


ARE 


COMPUTATIONAL-1 


DIVIDE 


FROM 


AREA 


COMPUTATIONAL-2 


DIVISION 


GENERATE 


AREAS 


COMPUTE 


DOWN 


GIVING 


ASCENDING 


CONFIGURATION 


EDITION-NUMBER 


GO 


ASSIGN 


CONSOLE 


ELSE 


GREATER 


AT 


CONTAINS 


END 


GROUP 


AUTHOR 


CONTIGUOUS 


ENDING 


HEADING 


BEFORE 


CONTROL 


ENTER 


HIGH 


BEGINNING 


CONTROLS 


ENVIRONMENT 


HIGH-VALUE 


BINARY 


COPY 


EQUAL 


HIGH-VALUES 


BLANK 


CORK 


EQUALS 


HOLD 


BLOCK 


CORRESPONDING 


ERROR 


HYPER 


BY 


CRT 


EVERY 


I-O 
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I-O-CONTROL 

ID 

IDENTIFICATION 

IF 

IN 

INDEX 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

IS 

JUST 

JUSTIFIED 

KEY 

KEYS 

LABEL 

LAST 

LEADING 

LEFT 

LESS 

LIMIT 

LIMITS 

LESTE 

LINE -COUNTER 

LINES 

LOCK 

LOW 

LOW-VALUE 



LOW-VALUES 

MEMORY 

MODE 

MODIFICATION-PRIVACY 

MODULES 

MOVE 

MULTIPLE 

MULTIPLY 

NEGATIVE 

NEXT 

NO 

NOT 

NOTE 

NUMBER 

NUMERIC 

OBJECT-COMPUTER 

OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 

OUTPUT 

OWNER 

OWNER-ID 

PAGE 

PAGE -COUNTER 

PERFORM 

PF 

PH 



PIC 

PICTURE 

PLUS 

POSITION 

POSITIVE 

PRINTER 

PROCEDURE 

PROCEED 

PROCESS 

PROCESSING 

PROGRAM -ID 

PUNCH 

QUOTE 

QUOTES 

RANDOM 

RD 

READ 

READER 

RECORD 

RECORDING 

RECORDS 

RECORD-MARK 

REDEFINES 

REEL 

REEL-NUMBER 

RELEASE 

REMARKS 

RENAMES 

RENAMING 

REPLACING 

REPORT 

REPORTING 



REPORTS 

RERUN 

RESERVE 

RESET 

RETENTION-CYCLE 

RETURN 

REVERSED 

REWIND 

RF 

RH 

RIGHT 

ROUNDED 

RUN 

SA 

SAME 

SCRATCH 

SD 

SEARCH 

SECTION 

SECTOR 

SECURITY 

SEEK 

SEGMENT-LIMIT 

SEGMENTED 

SELECT 

SENTENCE 

SEQUENCED 

SEQUENTIAL 

SET 

SIGN 

SIZE 

SORT 
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SOURCE 


UNIT 


SOURCE-COMPUTER 


UNTIL 


SPACE 


UP 


SPACES 


UPON 


SPECLAL-NAMES 


USAGE 


STANDARD 


USE 


STATUS 


USING 


STOP 


VALUE 


SUBTRACT 


VALUES 


SUM 


VARYING 


SYNC 


WHEN 


SYNCHRONIZED 


WITH 


SYSTEM-DATE 


WORDS 


SYSTEM-INPUT 


WORKING-STORAGE 


SYSTEM-OUTPUT 


WRITE 


SYSTEM-PUNCH 


ZERO 


SYSTEM-TIME 


ZEROES 


TALLY 


ZEROS 


TALLYING 




TAPE 




TERMINATE 




THAN 




THEN 




THROUGH 1 

> equivalent 
THRU ) 




TIMES 




TO 




TRACE 




TRACK 




TTY 




TYPE 




UNEQUAL 
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COBOL COLLATING SEQUENCE 



The following table shows the relationship between characters of the COBOL set and their equivalent 
machine, printer, and punched card codes. They are listed according to ascending collating se- 
quence. The COBOL quote (") character is represented as a not-equal-to (^) sign on the printer. 
The 4-8 multiple punch must be used to represent the quote in a COBOL source card. 

Characters shown with an asterisk are not available in COBOL source language but would be treated 
in the sequence indicated if present in data. 



Collating 


Internal 


External 


Printer 


Cards 


Character 


Punch 


Sequence 


Code 


Code 


Character 






00 


60 


20 


A 


A 


blank 


01 


15 


15 


<* 




8,5 


02 


16 


16 


%* 




8,6 


03 


17 


17 


[* 




8,7 


04 


75 


35 


-► * 




0,8,5 


05 


76 


36 


=* 




0,8,6 


06 


77 


37 


A * 




0,8,7 


07 


55 


55 


t* 




11,8,5 


08 


56 


56 


1* 




11,8,6 


09 


57 


57 


> 




11,8,7 


10 


35 


75 


>* 




12,8,5 


11 


36 


76 


-J 




12,8,6 


12 


33 


73 


- 


. 


12,8,3 


13 


34 


74 


) 


) 


12,8,4 


14 


37 


77 


J 




12,8,7 


15 


20 


60 


+ 


+ 


12 


16 


53 


53 


$ 


$ 


11,8,3 


17 


54 


54 


* 


* 


11.8,4 


18 


40 


40 


- 


- 


11 


19 


61 


21 


/ 


/ 


0,1 
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Collating 


Internal 


External 


Printer 


Cards 


Character 


Punch 


Sequence 


Code 


Code 


Character 






20 


73 


33 


> 


, 


0,8,3 


21 


74 


34 


( 


( 


0,8,4 


22 


13 


13 


= 


= 


8,3 


23 


14 


14 


^ 


(dash) 


8,4 


24 


32 


72 


< 


+0* 


12,0 


25 


21 


61 


A 


A 


12,1 


26 


22 


62 


B 


B 


12,2 


27 


23 


63 


C 


C 


12,3 


28 


24 


64 


D 


D 


12,4 


29 


25 


65 


E 


E 


12,5 


30 


26 


66 


F 


F 


12,6 


31 


27 


67 


G 


G 


12,7 


32 


30 


70 


H 


H 


12,8 


33 


31 


71 


I 


I 


12,9 


34 


52 


52 


V* 


-0* 


11,0 


35 


41 


41 


J 


J 


11,1 


36 


42 


42 


K 


K 


11,2 


37 


43 


43 


L 


L 


11,3 


38 


44 


44 


M 


M 


11,4 


39 


45 


45 


N 


N 


11,5 


40 


46 


46 





O 


11,6 


41 


47 


47 


P 


P 


11,7 


42 


50 


50 


Q 


Q 


11,8 


43 


51 


51 


R 


R 


11,9 


44 


72 


32 


]* 




0,8,2 


45 


62 


22 


S 


S 


0.2 


46 


63 


23 


T 


T 


0,3 


47 


64 


24 


U 


U 


0,4 


48 


65 


25 


V 


V 


0,5 
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Collating 


Intemal 


External 


Printer 


Cards 


Character 


Punch 


Sequence 


Code 


Code 


Character 






49 


66 


26 


W 


w 


0,6 


50 


67 


27 


X 


X 


0,7 


51 


70 


30 


Y 


Y 


0,8 


52 


71 


31 


Z 


Z 


0,9 


531 

53) 


00 


00 
12 


:* 









54 


01 


01 


1 


1 


1 


55 


02 


02 


2 


2 


2 


56 


03 


03 


3 


3 


3 


57 


04 


04 


4 


4 


4 


58 


05 


05 


5 


5 


5 


59 


06 


06 


6 


6 


6 


60 


07 


07 


7 


7 


7 


61 


10 


10 


8 


8 


8 


62 


11 


11 


9 


9 


9 



t Within the COBOL Collating sequence, external codes of 00 and 12 are flie same. 
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STANDARD FILE LABELS 



This appendix illustrates the standard file labels used with COBOL systems. The mass storage 
file label is maintained by MASTER, and cannot be accessed by the user. The field lengths 
specified in this appendix for standard label fields should be observed in the VALUE OF phrase 
associated with the LABEL RECORDS ARE STANDARD clause. 



MASS STORAGE FILE LABEL 



1 


Owner 


3 




File name 










Edition 


11 


Access privacy 




Modification privacy 


13 


No. allocated blocks 




* 


Block size 


15 




Block count 










Usage count 






17 


Creation date 




Expiration date 


19 


Last access date 




DT 


SC 


P 


* 


21 


DTM 


* * 


* 






* 


* * 


* 




23 


File size 



* Denotes Reserved 



24 



26 



28 



30 



KFM 



Next available 
SAK 



RM RF BF ^ 



MAX 



IDM 



KFS 



^ 



DDL 



LRS 



TIS 



KEY location 



Status 



ID location 



These three words are 
repeated for each 
segment of the fUe. 



50 



52 



Checksum 



Device number 



Low segment limit 



Segment length 
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FIELD NAME 



SIZE 



DESCRIPTION 



File Identifier 



40 characters 



Access Privacy 



Modification 
Privacy 



No. Blocks 
Allocated 

Block Size 



Block Count 



Usage Count 



Creation Date 



Expiration Date 



Last Access Date 



4 characters 



4 characters 



24 bits 



18 bits 



24 bits 



24 bits 



24 bits 



24 bits 



24 bits 



Uniquely identifies a file in label directory. 
The standard identifier consists of: 

Owner Identification - 8 characters 
File Name - 30 characters 
Edition Number - 2 characters 

The 40 -character field may be divided in 
other ways at installation option. 

Supplied when file is allocated and must be 
supplied for each succeeding OPEN request. 

Supplied when file is allocated and must be 
supplied for each RELEASE, EXPAND, and 
MODIFY request. 

Binary integer giving the number of blocks 
allocated to the file. 

Binary integer indicating number of 6 -bit 
characters in each record block 
(0 < block size < 131072). 

Binary integer, highest block number 
written. If file is processed sequentially, 
this is the number of blocks written into the 
file (0 ^ block count < 223). 

Binary count of number of times file has 
been opened. 

Date in the form yymmdd, stored as a binary 
integer, supplied by I/O system when file 
is allocated. 

Date in the form yymmdd, stored as a 
binary integer, supplied by user when the 
file is allocated. This field determines 
when a file may be deleted. 

Date in the form yymmdd, stored as a 
binary mteger, supplied by I/O system 
each time file is opened or changed. 
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FIELD NAME 



SIZE 



DESCRIPTION 



DT (device type) 



1 character 



SC (segment count) 



P (protection) 



DTM (device type 
modifier) 



6 bits 



1 character 



1 character 



6-bit code to indicate type of mass storage 
device: 



DT = 40, 
= 41 
= 50^ 

= 60^ 
= 70^ 



(1311 Disk Packs) 
(852 Disk Packs) 
(853 Disk Packs) 
(854 Disk Packs) 
(813, 814 Disk Files) 
(863 Drum) 



Binary uiteger givii^ number of segments 
in file (0 < SC < 64). 

Protection flags for use by I./0 system. 
Values currently defined: 

File may be read or written 

1 File may not be written 

6 -bit code which provides further device 
information. For 1311 and 852 disk packs, 
the values are: 



XXXXXO 
XXXXXl 



Track Mode 
Sector Mode 



For 853, 854, 813, 814, and 863, the 
value is: 

XXXXXl Sector Mode 



File Size 



24 bits 



Binary integer indicating number of allo- 
catable units (tracks) assigned to fUe 
(0 < file size < 2^3) . 



Next Available 
SAK 



8 characters 



File block and record positions where next 
record can be written. 



RM (record mark) 



1 character 



Character which terminates each record 
when the record format is record mark 
variability. 
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FIELD NAME 



SIZE 



DESCRIPTION 



RF (record format) 



3 bits 



Denotes the type of file records: 



00 
01 

02 



03 
04 



Fixed length records 

Key field contains total number 

of characters 

Key field contains the number of 

occurrences of a fixed length 

trailer item 

Universal format 

Record mark specified by RM 

terminates each record 



BF (block format) 



1 bit 



1 = One logical record per block 
= Logical records are blocked and each 
block contains two word header which 
specifies next block number (NBN) and 
position of first available character in 
block (POFAC). 



LRS (logical record 
size) 



2 characters 



Logical record size, in characters, of 
fixed length record; size of fixed portion of 
variable records with trailer items. Zero 
if records vary by key field or record mark. 



MAX (maximum logical 
record size) 



2 characters 



Maximum size in characters of variable 
portion of logical records. For variable 
records with trailers, this is size of trailer 
item times maximum number of occurrences. 
For all others this is maximum size of record 
within file. 



TIS (trailer item size) 



2 characters 



Trailer item size in characters if RF = 02, 
else zero. 



KFM (key field mode) 



1 bit 



Mode of key field address 

Key field is within each record 

1 Key field is outside record (not 
in file) 



KFS (key field size) 
Key Location 



5 bits 
17 bits 



Number of characters in key field. 

Character position of key field relative to 
beginning of record if key field is within 
record. 
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FIELD NAME 



IDM (ID Mode) 



IDL (ID Length) 



Status 



ID Location 



Checksum 



Device Number 



Low Segment Limit 
Segment Length 
*(reserved) 



SIZE 



1 bit 



5 bits 



1 character 



2 characters 



24 bits 



3 characters 



24 bits 



4 characters 



89 characters 



DESCRIPTION 

Type of record identification associated 
with every record in file. 

= alphanumeric 1 = numeric 

Length in characters of record identification 
field. 

Reserved to reflect current status of the 
file as defined by each operating system or 
library program . 

Starting character position of identification 
field in each record of the file. 

24-bit binary checksum of entire label. 
This field is checked by I/O system to 
detect accidental modification of label. 

Number of device on which this file segment 
is stored. This field is checked against 
device label to insure that proper packs are 
mounted. 

Binary hardware address at which this file 
segment begins. 

Number of allocatable units (tracks) in this 
segment. 

These fields are reserved for future use of 
I/O system. 
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MAGNETIC TAPE 



GENERAL HEADER LABELS 

All header label records are 80 characters (480 bits) long, and are unblocked. They are recorded 
in even parity (BCD) at the same density as the remainder of the data file. Header records are 
separated from succeeding data records by an interrecord gap only. Header label record fields 
are defined below; they are positioned as shown within the physical record. Values that may be 
used within these fields are also indicated. 



Field Name 


Starting 

Character 

Position 


Length in 
Characters 


Defined Values 
BCD Characters Only 


Function 


Densityt 


1 


1 


2, 5, 8 


Specifies density 
of recording file 


Header Label 
Identifier 


2 


2 


( ) 


Identifies record as 
header label record 


Not used 


4 


2 






Retention Code 


6 


3 


000-999 


Specifies, in days, 
file retention period 


File Namet 


9 


14 


Any combination of 
legal BCD characters 


Identifies file 


Reel Numbert 


23 


2 


01-99 


Sequence of reels 
for multireel files 


Date Written 


25 


6 


Any legal numeric 
date, expressed as 
mmddyy 


Date written is used 
with retention period 
to determine release 
date of file 


Edition Numbert 


31 


2 


00-99 or blank 


Identifies a single 
file set 


User Supplied 
Information 


33 


48 


Any combination of 
legal BCD characters 


User comments field 



1" Used by *DEF open unit fimction 
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STANDARD ENDING LABELS 



The input-output control system writes ending labels for all files with standard labeling and at the 
end of each reel of a multireel file. 



Field Name 


Starting 

Character 

Position 


Length in 
Characters 


Defined Values 
BCD Characters Only 


Function 


End-of-Tape 

or 
End-of-File 


1 


3 


EOT' 

or 

EOF 


End of tape for 
intermediate reel 

End of file for 
final tape 


Block Count 


4 


5 


numeric 


Physical record 
(block) count for 
reel if multireel fUe; 
for file if multifile 
or single file reel 


User supplied 
information 


9 


72 


Any combination of 
legal BCD characters 


User comments field 
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FILE BLOCKING FORMATS 



The input-output system blocks and deblocks user files in accordance with information supplied in 
the BLOCK CONTAINS and RECORD CONTAINS clauses of the FD entry for each file. Physical 
record formats depend on the hardware type on which the file resides. 

The maximum size of a block and logical record is 131, 067 characters. 



The following chart shows the possible variations of BLOCK and RECORD clauses, 
codes used in the chart are defined in the following pages. 



The reference 



File Blocking Reference Chai 



\ §3 

\ W O 

BLOCK \ 
CONTAINS \ 


■a 

1 

S 
o 

<s 


so ^ 


1 

u 

bo 

o rt 

u < 

OB Zi 


integer-3 TO integer-4 
CHARACTERS 
DEPENDING ON 
RECORD MARK 


integer-3 TO integer-4 
CHARACTERS 
DEPENDING ON 
data -name 
(data-name PIC 9(5)) 


integer-3 TO integer-4 
CHARACTERS 
DEPENDING ON 
data-name 
(USAGE COMP-1) 


clause omitted 


^1 


^1 


^2 


^2 


^2 


^3 


integer-l 
CHARACTERS 


^4 


^4 


^5 


^5 


^5 


^ 


integer-l 
RECORDS 


^6 


^6 


^7 


^7 


^7 


^7 


integer-l 

TO 
uiteger-2 
CHARACTERS 


\ 


^8 


^8 


^8 


^8 


^8 


integer-l 

TO 
integer-2 
RECORDS 


^9 


^ 


^10 


^10 


^10 


^10 
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Reference Code Resultant Block Format 

F Unblocked, fixed-length logical records. Size of physical record is computed 

from record description. 

F Unblocked logical records. Physical record may be variable on magnetic 

tape, but on mass storage the record is always fixed length with size equal to 
integer-4. 

F Illegal combination. Universal records must always be blocked. 

F Blocked or unblocked logical records, depending on whether tnteger-1 is a 

multiple of the record description length. Size of physical record is always 
integer-1 characters. 

F Blocked logical records. Size of block is always integer-1 characters on mass 

storage; the block may be variable on magnetic tape. 

F Blocked, fixed-length logical records. Size of block is equal to integer-1 

times the length of the record description. 

F Blocked logical records. Size of block is equal to integer-1 times integer-4 

for mass storage; block may be variable on magnetic tape. 

F Blocked logical records. Block size is always integer-2 characters on mass 

storage; may be variable length on tape. 

F Blocked logical records. Mass storage block size is equal to integer-2 times 

the length of the record description; may be variable on magnetic tape. 

F Blocked logical records. Mass storage block size is equal to integer-2 times 

integer-4; may be variable on tape. 
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INPUT/OUTPUT SUMMARY TABLE 



This table indicates the various features included in COBOL for performing input/output operations 
on a data file. The list which follows is a guide for cross referencing the table. 

Summary of I/O Options 



Options \^^ 


Hardware Type 


Mass Storage 


Magnetic 
Tape 


System 
Files (MP, 
OUT, PUN) 


CRT 
TTY 


Unit Record 
Reader, Pr later. 
Punch 


Permanent 


Scratch 


Access Mode 


S,R 


S,R 


S 


S 


S 


S 


Labeling 


S 


O 


S,0,D 


S,0,D 


o 


S,0,D 


Blocking 


B,U,R 


B,U,R 


B,U 


U 


u 


U 


Block Size 


FH 


FH 


F,V 


X 


X 


X 


Logical Record 
Size 


F,RM, 
K1,K2 


F,RM, 
K1,K2 


F,RM,K1 


F 


F 


F 


Allocation 


A 


A 


X 


X 


X 


X 


Expansion 


E 


E 


X 


X 


X 


X 


Release 


U 


A 


X 


X 


X 


X 


Actual Key 


AR.AS 


AR,AS 


X 


X 


X 


X 


Use Declaratives 


SE, LB 


SE 


SE,LB 


LB 


X 


LB 


Open 


03,04 


03,04 


01,02,04 


04 


03,04 


04 


Close 


CI 


CI 


C1,C2, 
C3,C4 


CI 


CI 


CI 


Read 


R1,R2 


R1,R2 


Rl 


Rl 


Rl 


Rl 


Write 


W1,W2 


W1,W2 


Wl 


Wl 


Wl 


Wl 


Seek 


S 


S 


X 


X 


X 


X 
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Option 
ACCESS MODE 



Code 

S 
R 



Meaning 

SEQUENTIAL 
RANDOM 



LABELING 



S 
O 
D 



STANDARD 
OMITTED 
data name 



BLOCKING 



BLOCK SIZE 



B 
U 
R 

F 
FH 

V 



LOGICAL RECORD SIZE 


F 




RM 




Kl 




K2 


ALLOCATION 


A 


EXPANSION 


E 


RELEASE 


A 




U 


ACTUAL KEY 


AR 




AS 


USE DECLARATIVES 


SE 




LB 



Blocked logical records 
Unblocked logical records 
RESPOND - UNIVERSAL blocking 

Fixed Length - no block header 
Fixed Length - eight character header 
(mass storage only) 
Variable length 

Fixed length 

Variable dependiag on record mark 

Variable depending on data-name (key field - BCD) 

Variable depending on data name (key field - 

COMPUTATIONAL-1) 

File may be allocated internally 

File may be expanded internally if it is in sequential 
mode. 

Entire file released at end of run 

Unused portion released when file is closed if in 

segmented, sequential mode 

Actual key must be updated by user if file is random 

mode 

I/O control will update actual key if file is sequential 

mode 

Use after standard error recovery 
Use before/ after standard 
beginning/ending label procedure 
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Option 
OPEN 



Code 



01 



02 
03 

04 



CLOSE 


CI 




C2 




C3 




C4 


READ (INTO) 


Rl 




R2 


WRITE (FROM) 


Wl 




W2 


SEEK 


S 


ILLEGAL OFriON 


X 



Meaning; 

\ INPUT 
OPEN {'■^^^'^^ 

] OUTPUT 

OPEN INPUT REVERSED 

OPEN I-O 



WITH NO REWIND 



OPEN 



INPUT ? 
OUTPUT \ 



CLOSE 

CLOSE WITH NO REWIND 
CLOSE WITH LOCK 
CLOSE REEL 

READ; AT END (sequential) 
READ; INVALID KEY (random) 

WRITE (sequential) 

WRITE; INVALID KEY (random) 

SEEK; INVALID KEY 



60229400 



G-3 



DIFFERENCES BETWEEN MASS STORAGE 
COBOL AND USASI COBOL 



H 



USASI COBOL and Mass Storage (MS) COBOL both operate under control of the MASTER operating 
system. They are compatible except for the lai^uage differences described in this appendix. 

The elements omitted from USASI COBOL either have no effect on the object program or their 
fimctions can be performed by other elements present in both versions of COBOL/MASTER. The 
elements omitted from MS COBOL are features in USASI COBOL which have no equivalent in MS 
COBOL. 



Elements in MS COBOL not in USASI COBOL 



Alternate Methods Available in Both 



ENVIRONMENT DIVISION: 

MEMORY SIZE clause of 
SOURCE-COMPUTER paragraph 



None , used for documentation only 



DATA DIVISION: 

CONSTANT SECTION 



File Description Clauses: 

FILE CONTAINS 

NON-STANDARD option of 
LABEL RECORDS clause 



Constants can be defined with the VALUE 
clause in Working -Storage and Common- 
Storage sections. 



None , used for documentation only 

Data-name option of LABEL RECORDS clause 
can be used to specify nonstandard labeling. 
Label checking is done by the input-output 
control system in USASI COBOL. 



Record Description Clauses: 
SIZE 

CLASS 



POINT LOCATION 
SIGN or SIGNED 



Nimaber of symbols representing character 
position in PICTURE(ineludes all symbols but 
VSandP). 

Type of character in PICTURE: 
9 is NUMERIC 
A is ALPHABETIC 
X is ALPHANUMERIC or AN 

V in PICTURE 

S in PICTURE 
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Elements in MS COBOL not in USASI COBOL 



Alternate Methods Available in Both 



Record Description Clauses (cont'd): 
ZERO SUPPRESS 
CHECK PROTECT 
FLOAT DOLLAR SIGN 



Z used as replacement character in PICTURE 

* used as replacement character in PICTURE 

currency symbol ($) used as replacement 
character in PICTURE 



PROCEDURE DIVISION: 

Conditional statement connectives or operators: 
OTHERWISE 
THEN 
UNEQUAL 
EQ 
NQ 
GR 
LS 



ELSE 

; (semicolon) 

NOT EQUAL TO or NOT 

EQUAL TO or = 

NOT EQUAL TO or NOT 

GREATER or > 

LESS or < 



Elements Co mmon to MS and USASI C OBOL 

RESERVE ir~ A ALTERNATE AREA 

t integer -1 

clause in FILE-CONTROL 



For MS COBOL: 
NO Produces no buffering 
1^ Produces single buffering 

2 (or clause omitted) 

Produces double buffering 



For USASI COBOL: 

NO (or clause omitted) 

Produces no buffering for unblocked files 

1^ Produces single buffering for unblocked 

files and double buffering for blocked 
sequential files 

2 Produces double buffering for blocked 

and unblocked sequential files 
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The elements given below are available in USASI COBOL but not in MS COBOL. Except for abbre- 
viations , which can be replaced by the complete word, these elements represent new features which 
have no equivalent in MS COBOL. 



ENVIRONMENT DIVISION: 

MODULES option of OBJECT-COMPUTEB paragraph, (documentation only) 
Literal IS mnemonic-name clause of SPECIAL-NAMES paragraph 
CURRENCY SIGN IS literal clause of SPECIAL-NAMES paragraph 
DECIMAL-POINT IS COMMA clause of SPECIAL-NAMES paragraph 
RENAMING clause of FILE-CONTROL paragraph 

DATA DIVISION: 

VvV-/A*XJ.YXVyxN— Oi \JX\jnXJXLl Oil»\^ XXV_/1'V 

REPORT SECTION 

SD entry (sort file description) 

File Description: 

SECTOR/TRACK and SEGMENTED/CONTIGUOUS options of RECORDING MODE clause 
VALUE OF option of LABEL RECORD IS data-name clause 
REPORT clause 

Record Description: 

level-number 66 and RENAMES clause 

INDEX and COMPUTATIONAL-2 options of USAGE clause 

JUSTIFIED RIGHT clause 

ASCENDING/DESCENDING KEY and INDEXED BY options of OCCURS clause 

PIC abbreviation of PICTURE 

COMP abbreviation of COMPUTATIONAL 

COMP-1 abbreviation of COMPUTATIONAL-1 
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PROCEDURE DIVISION: 

GIVING series in ADD, SUBTRACT, MULTIPLY and DIVIDE 

TO series in ADD 

BY option in DIVIDE 

UNIT option in CLOSE 

lai^uage-name option of ENTER 

UNTIL and VARYING options of PERFORM 

REVERSED option of OPEN INPUT 

REPLACING and procedure -name options of COPY 

BEFORE/AFTER ADVANCING option of WRITE 

compound conditions joined with AND 

COMPUTE verb 

Sort Feature: 

RELEASE verb 
RETURN verb 
SORT verb 

Table Handling Feature: 

SEARCH verb 
SET verb 

Source Program Debugging Feature: 

TRACE verb 

Report Writer Feature: 

BEFORE REPORTING option of USE statement 
GENERATE verb 
INITIATE verb 
TERMINATE verb 
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DrAGNOSTICS 



DiAGNOSTiCS 

Each diagnostic generated by the compiler has the following format: 

nimnn c English text diagnostic word / D idn 

nnnnn Source program line number where error occurred. 

c Character code specifying severity of error: 

S Severe error. No object code is generated for the statement; execution and binary 
deck generation suppressed. 

E Probable error. Code generated for statement; however, results during execution are 
unpredictable. 

W Warning. A minor inconsistency encountered. Program expected to run correctly. 

word Current source text element deemed erroneous. 

D idn Internal name assigned to a data -name for PASS 2 diagnostics. 

In all cases , program compilation continues in order to diagnose additional errors . 
IDENTIFICATION/ENVIRONMENT DIVISION 



Type 



Message 



W 
W 

w 

s 

s 

s 

s 

s 

w 

s 

s 

s 

s 

w 

w 



*ACCESS MODE* CLAUSE IGNORED FOR NONMASS STORAGE FILE. 

*ACCESS MODE* CLAUSE REQUIRED FOR MASS STORAGE— ASSUMED SEQUENTIAL. 

*ACTUAL KEY* CLAUSE IGNORED FOR NONMASS STORAGE FILE. 

*ACTUAL KEY* MISSING FOR RANDOM FILE— SET TO SEQUENTIAL. 

*ASSIGN* MISSING— FILE IGNORED (word) 

COMPUTER NAME MUST BE *3300* OR *3500* (word) 

*DATA DIVISION* HEADING MISSING— COMPILATION TERMINATED. 

DATA-NAME USED WITH ACTUAL KEY CLAUSE MAY NOT BE QUALIFIED. 

DUPLICATE CLAUSE IN SELECT STATEMENT— IGNORED (word) 

DUPLICATE +CURRENCY SIGN* CLAUSE— SECOND CLAUSE IGNORED. 

DUPLICATE *DECIMAL POINT* CLAUSE— SECOND CLAUSE IGNORED. 

DUPLICATE HEADER— FIRST DEFINITION ACCEPTED (word) 

DUPLICATE SELECT STATEMENT FOR CURRENT FILE -NAME— 2ND SELECT IGNORED. 

*END REEL* IN *RERUN* CLAUSE NOT VALID FOR MASS STORAGE— ASSUMED *END UNIT*. 

*END UNIT* IN *RERUN* CLAUSE NOT VALID FOR TAPE FILE— ASSUMED *END REEL*. 
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Type 



Message 



W *END UNIT* INVALID IN *RERUN* CLAUSE FOR a.'^NDOM ACCESS FILE. 

W *FILE-LIMITS* CLAUSE IGNORED FOR NON-MASS STORAGE FILE. 

S FILE NOT DEFINED VIA A *SELECT* STATEMENT (word) 

W HEADER OUT OF ORDER— IGNORED (word) 

S *IDENTIFICATION DIVISION* MISSING OR OUT OF ORDER. 

S ILLEGAL CLAUSE IN SPECIAL-NAMES SECTION (word) 

S ILLEGAL CLAUSE WITHIN SELECT STATEMENT (wOrd) 

S ILLEGAL *DSI* IN HARDWARE ASSIGNMENT— IGNORED (word) 

S ILLEGAL DSI IN *RERUN* CLAUSE (word) 

S ILLEGAL FILE-NAME IN *RENAMING* CLAUSE— CLAUSE IGNORED (word) 

S ILLEGAL FILE-NAME IN SELECT STATEMENT— FILE IGNORED (word) 

S ILLEGAL HARDWARE -NAME (word) 

S ILLEGAL HARDWARE TYPE IN *RERUN* CLAUSE (word) 

S ILLEGAL HEADER— IGNORED (word) 

S ILLEGAL LITERAL IN *CURRENCY IS* CLAUSE (word) 

S ILLEGAL *TUI* IN HARDWARE ASSIGNMENT— IGNORED (word) 

S ILLEGAL WORD IN *ACCESS-MODE* CLAUSE (word) 

S ILLEGAL WORD IN *ACTUAL KEY* CLAUSE (word) 

S ILLEGAL WORD IN *CURRENCY IS* CLAUSE (word) 

S ILLEGAL WORD IN *DECIMAL-POINT IS COMMA* CLAUSE (word) 

S ILLEGAL WORD IN *FILE-LIMITS* CLAUSE (word) 

S ILLEGAL WORD IN *IMPLEMENTATOR-NAME IS MNEMONIC-NAME* CLAUSE (word) 

S ILLEGAL WORD IN *LITERAL IS MNEMONIC-NAME* CLAUSE (word) 

S ILLEGAL WORD IN MEMORY SIZE CLAUSE (word) 

S ILLEGAL WORD IN *MULTIPLE REEL* CLAUSE (word) 

S ILLEGAL WORD IN *RESERVE AREA* CLAUSE— IGNORED (word) 

W INTEGER IN FILE-LIMITS CLAUSE TOO LARGE— VALUE NORMALIZED TO £ 8388607 

W INTEGER-2 OF *RESERVE* IS GREATER THAN 2— SET TO 2. 

W INTEGER LITERAL MUST BE POSITIVE —MINUS SIGN IGNORED (word) 

S INTEGER MISSING FROM *POSITION* OPTION OF *MULTIPLE FILE* CLAUSE. 

S INVALID CLAUSE IN I-0-CONTROL PARAGRAPH (word) 

S INVALro INTEGER IN *RERUN* CLAUSE. 

S INVALID WORD IN *RERUN* CLAUSE (word) 

S LITERAL MUST BE 1 CHARACTER--LITEIiAL IGNORED (word) 
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Type 

S 

s 



w 
w 

w 

s 

s 

s 

w 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

w 

s 

s 



Message 

MNEMONIC-NAME PREVIOUSLY DEFINED (word) 

MULTIPLE DEFINITION OF FILE-NAME IN *SAME AREA* OR *MULTIPLE FILE* CLAUSES (word) 

A file-name mentioned in a MULTIPLE FILE clause may not be mentioned in a SAME AREA clause 
since MULTIPLE FILE implies sharing same areas. Likewise, a file-name may not be mentioned 
more than once within either clause or in multiple like clauses. 

♦MULTIPLE REEL* CLAUSE IGNORED FOR MASS STORAGE FILE. 

♦MULTIPLE REEL/UNIT* CLAUSE VALID ONLY FOR TAPE AND. MASS STORAGE FILES—CLAUSE 
IGNORED. 

♦MULTIPLE UNIT* CLAUSE IGNORED FOR TAPE FILE. 

NO FILE -NAMES GIVEN IN *MULTIPLE FILE* CLAUSE (word) 

NO FILE-NAMES GIVEN IN *SAME-AREA* CLAUSE (word) 

♦OPTIONAL* DISCREPANCY BETWEEN MASTER FILE AND CURRENT FILE (word) 

PARAGRAPH HEADER PRECEDING THE COPY STATEMENT IS EXPECTED AT THIS POINT (word) 

♦POSITION* INTEGER IN *MULTIPLE FILE* CLAUSE CANNOT BE ZERO. 

POSITION NUMBER OF A FILE MAY NOT EXCEED 63. 

PREVIOUS ERROR CAUSED CURRENT FILE TO BE UNDEFINED (word) 

PROGRAM -ID NAME IS MISSING OR ILLEGAL (word) 

RENAMED FILE PREVIOUSLY DEFINED AS A RENAMING FILE (word) 

RENAMING FILE WAS PREVIOUSLY RENAMED (word) 

REQUIRED HEADER MISSING OR OUT OF ORDER (word) 

REQUIRED WORD MISSING. 

♦SELECT* MISSING— FILE IGNORED (word) 

*SECTION* MISSING FROM SECTION HEADER. 

TEXT MUST NOT FOLLOW CURRENT HEADER (word) 

THE WORD *DIVISION* IS MISSING. 

♦THRU* OPTION OF FILE-LIMITS CLAUSE ILLEGAL FOR RANDOM ACCESS FILE. 

UNDEFINED FILE-NAME IN ♦RERUN* CLAUSE (word) 

UNDEFINED FILE -NAME IN *SAME AREA* OR *MULTIPLE FILE^ CLAUSE (word) 
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DATA DIVISION 



Type 



Message 



S 

s 
s 

E 
S 

E 
E 
E 
E 

S 
S 

s 

E 
E 
E 
S 
E 
S 
S 
S 
S 



W 

E 
E 

S 

s 

s 

s 

E 



A CONDITION NAME MAY NOT BE ASSOCIATED WITH A LEVEL 66 ITEM. 

A CONDITION NAME MAY NOT BE ASSOCIATED WITH AN ITEM WHOSE USAGE IS INDEX. 

A REDEFINED ITEM MAY NOT CONTAIN AN OCCURS CLAUSE NOR BE SUBORDINATE TO ITEM 
CONTAINING ONE. 

ACCESS-PRIVACY VALUE EXCEEDS 4 CHARACTERS. 

ACCUMULATED SIZE OF PRECEDING GROUP ITEM IS GREATER THAN 131,067 CHARACTERS. 

ALL SUBORDINATE ITEMS WITHIN A COMPUTATIONAL-1 GROUP MUST BE COMPUTATIONAL-1. 

ALL SUBORDINATE ITEMS WITHIN A COMPUTATIONAL-2 GROUP MUST BE COMPUTATIONAL-2. 

ALL SUBORDINATE ITEMS WITHIN AN INDEX GROUP MUST BE INDEX. 

AN ITEM MAY NOT CONTAIN VALUE CLAUSE IF IT IS SUBORDINATE TO AN ITEM WITH A VALUE 
CLAUSE. 

AN ITEM SUBORDINATE TO AN OCCURRING ITEM MAY NOT HAVE A VALUE CLAUSE. 

*ASCENDING/DESCENDING KEY* CLAUSE REQUIRES AN *OCCURS* CLAUSE. 

♦BINARY, DECIMAL, SECTOR, TRACK* EXPECTED— CURRENT WORD INVALID (word) 

*BLANK WHEN ZERO* CLAUSE MAY NOT BE USED UNLESS ITEM IS NUMERIC EDITED. 

BLOCK CONTAINS CLAUSE DSfTEGER-2 MUST BE GREATER THAN INTEGER-!. 

BLOCK CONTAINS CLAUSE MUST HAVE POSITIVE INTEGERS. 

COMMON-STORAGE SECTION ENCOUNTERED TWICE. 

COMMON-STORAGE SECTION MUST PRECEDE WORKING-STORAGE SECTION. 

COMPUTATIONAL-1 LITERAL MAY NOT EXCEED + OR - 8338607. 

COMPUTATIONAL-2 LITERAL EXPONENT MAY NOT EXCEED + OR - 308. 

COMPUTATIONAL-2 ITEM ASSIGNED ILLEGAL LITERAL. 

CURRENT FILE-NAME CANNOT BE A SORT FILE. 

One or more of the following clauses in the ENVIRONMENT DIVISION were used to describe the 
ENVIRONMENT of the current file (RENAMING, ACTUAL KEY, FILE-LIMITS, ACCESS MODE, 
PROCESSING MODE, RERUN ON, MULTIPLE FILE, SAME AREA), thus, the file may not be a 
SORT file. 

CURRENT VALUE CLAUSE CONSIDERED DOCUMENTARY. 

CURRENT WORD IS INVALID IN *USAGE* CLAUSE (word) 

CURRENT WORD SHOULD BEGIN IN *A* MARGIN OF SOURCE TEXT (word) 

DATA DIVISION MUST BEGIN WITH A SECTION HEADER 

DATA-NAME EXPECTED— CURRENT WORD INVALID (word) 

DATA-NAME IS NOT DEFINED IN DATA DIVISION (word) 

A data-name mentioned within a DATA DIVISION qualification string has not been defined. 

DATA-NAME LEVEL NUMBERS MUST BE EQUAL IN REDEFINES CLAUSE. 

*DATA RECORDS* CLAUSE MISSING LN FILE DESCRIPTION(FD) . 
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E *DATA RECORDS* CLAUSE IN SORT-FILE DESCRIPTION(SD) 

E *DIVISION* EXPECTED AT THIS POINT (word) 

E DUPLICATE CLAUSE IN ENTRY— CLAUSES OTHER THAN FIRST IGNORED. 

E EDITION-NUMBER VALUE EXCEEDS 2 CHARACTERS. 

S ELEMENT CLASS CONFLICT DETECTED. 

The compiler has detected either multiple PICTURE clauses for the data item or a VALUE has been 
assigned which does not meet the class defined in the data item PICTURE. 

S EXPONENT OF COMPUTATIONAL-2 LITERAL MUST BE 1-3 DIGITS. 

S FD LEVEL ALLOWED ONLY IN FILE SECTION. 

S FIELD NAMED IN *SEQUENCED ON* CLAUSE FOR THIS FILE IS OUTSIDE OF THE RECORD. 

S FIELD NAMED IN *SEQUENCED ON* CLAUSE FOR THIS FILE MAY NOT BE COMP-1 OR COMP-2. 

S FILE-NAME NOT SELECTED IN ENVIRONMENT DIVISION (word) 

S FILE NAME NOT UNIQUE WITHIN DATA DIVISION (word) 

S FILE SECTION ENCOUNTERED TV^ICE. 

E FILE SECTION MUST PRECEDE OTHER DATA DIVISION SECTIONS. 

S *FILLER* OR DATA-NAME EXPECTED— CURRENT WORD INVALID (word) 

S HIGHEST DATA-NAME QUALIFIER IS NOT UNIQUE (word) 

The last data-name mentioned in a qualification string must be unique when qualifying the following 
data items: 

1. Data-name-1 of the OCCURS. . . DEPENDING ON clause 

2. Data-name-3, data-name-4, etc. of the VALUE OF clause in a level record description. 

E ID VALUE EXCEEDS 14 CHARACTERS. 

E ID VALUE EXCEEDS 30 CHARACTERS-MASS fTORAGE. 

S ILLEGAL PICTURE CLAUSE (word) 

S ILLEGAL TO RENAME ITEMS WITH LEVELS 01, 66, 77, OR 88. 

S ILLEGAL TO SPECIFY VALUE CLAUSE WLTH REDEFINES CLAUSE. 

E ILLEGAL TO SYNCHRONIZE AN ITEM SUBORDINATE TO AN ITEM CONTAINING A VALUE CLAUSE. 

S IN RENAMES CLAUSE DATA-NAME-2 MUST PRECEDE DATA-NAME-3. 

3 IN RENAMES CLAUSE DATA-NAME-3 MAY NOT BE SUBORDINATE TO DATA-NAME-2. 

W INCORRECT STANDARD LABEL RECORD SPECIFIED. 

S INDEX-NAME NOT UNIQUE (word) 

S INDEXED BY CLAUSE MAY NOT BE USED WITHOUT AN OCCURS CLAUSE. 

S INSUFFICIENT BLOCK SIZE. 

S INTEGER NUMBER EXPECTED— CURRENT WORD INVALID (word) 
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INVALID LEVEL NUMBER HIERARCHY WITHIN RECORD DESCRIPTION. 

Within a record description a level number has been encountered which is less than the previous level 
just processed, however, a prior item with an equal level number has not been defined. 

Example: 01 ALPHA 

03 BETA 

03 BETA-B 

04 DELTA 

02 ZETA 

ITEM MAY NOT HAVE USAGE OF COMP-1, COMP-2, OR INDEX IF SUBORDINATE TO ITEM WITH 
DISPLAY USAGE 

ITEM MAY NOT HAVE USAGE OF COMP-1, COMP-2, OR INDEX IF SUBORDINATE TO ITEM WITH A 
VALUE CLAUSE 

ITEM MAY NOT HAVE USAGE OF DISPLAY OR INDEX IF SUBORDINATE TO ITEM WITH 
COMPUTATIONAL USAGE. 

ITEM MAY NOT HAVE VALUE CLAUSE IF SUBORDINATE TO AN ITEM WITH A REDEFINES CLAUSE. 

ITEM MUST BE NUMERIC IF SUBORDINATE TO AN ITEM WITH COMPUTATIONAL L^AGE. 

ITEM WITH OCCURS DEPENDING ON CLAUSE ILLEGAL IN FILE WITH RECORD CONTAINS DEPENDING 
ON CLAUSE. 

JUSTIFIED CLAUSE ILLEGAL AT GROUP LEVEL 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE IN FILE SECTION MUST BE A NUMERIC ITEM 

< 5 DIGITS 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE MAY NOT BE SUBORDINATE TO ITEM 
CONTAINING CLAUSE. 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE MAY NOT BE WITHIN THE VARIABLE PART OF 
THE RECORD. 

KEYFIELD IN RECORD CONTAINS DEPENDING ON CLAUSE MUST BE COMP-1 OR NUMERIC ITEM OF 

< 5 DIGITS. 

*LABEL RECORDS* CLAUSE MISSING IN FILE DESCRIPTION(FD). 

*LEFT* OR *RIGHT* EXPECTED— CLTIRENT WORD INVALID (word) 

LEVEL 77 ILLEGAL IN FILE SECTION. 

LEVEL 77 ITEMS MUST BE DEFINED FIRST IN COMMON AND WORKING STORAGE. 

LEVEL 77 MAY NOT HAVE SUBORDINATE LEVELS. 

LEVEL NUMBER FOLLOWING AN FD MUST BE 01. 

LITERAL ASSOCIATED WITH A NON-NUMERIC ITEM MUST BE A QUOTED LITERAL OR 
FIGURATIVE CONSTANT. 

LITERAL OR FIGURATI\'E CONSTANT EXPECTED— CURRENT \^'ORD INVALID (word) 

LITERAL, FIGURATIVE CONSTANT OR DATA-NAME EXPECTED—CLHRENT WORD INVALID (word) 

MASS STORAGE FILE MUST HAVE STANDARD LABELS. 



1-6 



60229400 



Type 



Message 



E MODIFICATION-PRIVACY VALUE EXCEEDS 4 CHARACTERS. 

S MORE THAN 3 LEVELS OF NESTED OCCURS CLAUSES ENCOUNTERED. 

S NO RECORD DEFINED FOR THE FILE. 

S NON-USASI ELEMENT, -CLAUSE IGNORED. 

S . OBJECTS OF RENAMES CLAUSE MAY NOT BE OCCURRING ITEMS NOR BE SUBORDINATE TO AN 

OCCURRING ITEM. 

E OCCURS CLAUSE INTEGER-2 MUST BE GREATER THAN INTEGER-1. 

S *OCCURS* CLUASE ILLEGAL AT LEVEL 01 OR 77. 

E OCCURS CLAUSE MUST USE POSITIVE INTEGERS. 

S *OMITTED* OR *STANDARD VALUE OF* OR DATA-NAME EXPECTED— CURRENT WORD INVALID (word) 

E OWNER VALUE EXCEEDS 8 CHARACTERS. 

S PICTLUE CLAUSE CONFLICTS WITH CLASS OF ITEM. 

E PICTURE CLAUSE ILLEGAL AT GROUP LEVEL. 

W POINT ALIGNMENT OF LITERAL ASSIGNED TO DATA ITEM CAUSED LOSS OF NON-ZERO DIGITS ON 
LEFT. 

W POINT ALIGNMENT OF LITERAL ASSIGNED TO DATA ITEM CAUSED LOSS OF NON-ZERO DIGITS ON 
RIGHT. 

S PRECEDING DEFINITION DEFINED A STORAGE AREA OF DIFFERENT SIZE THAN THE ORIGINAL ITEM. 

W QUOTED LITERAL IS TOO LARGE FOR ITEM—RIGHT TRUNCATION OCCURRED. 

E RECORD CONTAINS CLAUSE INTEGER-2 MUST BE GREATER THAN INTEGER-1. 

E RECORD CONTAINS CLAUSE MUST HAVE POSITIVE INTEGERS. 

E RECORD CONTAINS CLAUSE NECESSARY IF USING LEVEL 01 WITH REPORTS ARE CLAUSE. 

S *RECORD-MARK* OR DATA-NAME EXPECTED— CURRENT WORD INVALID (word) 

S *RECORD* OR *RECORDS* EXPECTED— CURRENT WORD INVALID (word) 

S RECORD SIZE HAS BEEN DESCRIBED BY TWO OCCURS DEPENDING ON CLAUSES —SECOND CLAUSE 
IGNORED. 

E REDEFINES CLAUSE ILLEGAL AT LEVEL 66 AND 88. 

S PREDEFINES* CLAUSE MAY NOT BE SPECIFIED FOR AN OCCURRING ITEM. 

E REDEFINES CLAUSE MAY NOT BE USED AT LEVEL 01 ENTRIES IN FILE SECTION. 

W *REDEFINES* MUST IMMEDIATELY FOLLOW DATA-NAME-1. 

S REDEFINITION MUST IMMEDIATELY FOLLOW THE ENTRIES DESCRIBING THE AREA BEING 
REDEFINED. 

E REEL-NUMBER VALUE EXCEEDS 2 DIGITS. 

S *RENAMES* EXPECTED— CURRENT WORD INVALID (word) 

S RENAMES CLAUSE RESULTS IN ITEM SIZE GREATER THAN 32K WORDS. 
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RETENTION-CYCLE VALUE EXCEEDS 3 DIGITS. 
♦RIGHT* EXPECTED— CURRENT WORD IN\^ALID (word) 
SD LEVEL ALLOWED ONLY IN FILE SECTION. 
SEARCH KEY IS OUTSIDE LIMITS OF TABLE AREA. 
SEARCH KEY MAY NOT HAVE AN OCCURS CLAUSE. 
♦SECTION* EXPECTED— CURRENT WORD INVALID (word) 
SYNCHRONIZED CLAUSE ILLEGAL AT GROUP LEVEL. 
TABLE OVERFLOW— CANNOT EXPAND. 

The user should re-oompile with more core scheduled for the job. 

THE KEYFIELD FROM AN ACTUAL KEY CLAUSE MUST HAVE A LENGTH OF 12 CHARACTERS. 

THIS FILE MAY NOT APPEAR IN A FD SINCE ITS SELECT STATEMENT CONTAINS A RENAMING CLAUSE. 

TERMINAL PERIOD MISSING. 

UNDEFINED DATA-NAME USED IN REDEFINES CLAUSE (word) 

UNDEFINED DATA-NAME USED IN RENAMES CLAUSE (word) 

VALUE ASSIGNED TO COMPUTATIONAL ITEM MUST BE NUMERIC LITERAL. 

VALUE ASSIGNED TO COMPUTATIONAL-1 ITEM MUST BE NUMERIC INTEGER LITERAL. 



E VALUE CLAUSE ILLEGAL IN AN ENTRY USING OCCURS CLAUSE. 

S *VALUE OF* EXPECTED— CURRENT WORD INVALID (word) 

S *VALUE* OR *VALUES* EXPECTED— CURRENT WORD INVALID (word) 

S WORD OUT OF CONTEXT— SCANNING RESUMED AT NEXT KEYWORD (word) 

S WORKING -STORAGE SECTION ENCOUNTERED TWICE. 

E *ZERO* EXPECTED— CURRENT WORD INVALID (word) 
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ABSOLUTE LINE NUMBER SPECIFICATION MAY NOT FOLLOW RELATIVE LINE SPECIFICATION. 

ABSOLUTE LINE NUMBER SPECIFIED IS NOT GREATER THAN PRECEDING LINE. 

CLAUSE APPEARS MORE THAN ONCE IN SAME REPORT GROUP/ITEM DESCRIPTION. 

*CODE* EXPECTED TO FOLLOW *WITH* (word) 

The word CODE must follow the word WITH in the WITH CODE mnemonic-name clause. 

^COLUMN NUMBER* CLAUSE REQUIRED WHEN REPORT GROUP IS TO BE PRESENTED. 

The COLUMN NUMBER clause is required when one of the following clauses is given in the elementary 
item description: GROUP INDICATE, JUSTIFIED, VALUE, or BLANK WHEN ZERO. 

CURRENT CLAUSE IS USED AT AN INVALID LEVEL NUMBER. 

It is illegal to use the following clauses at the RD level: LINE NUMBER, NEXT GROUP, TYPE, 
USAGE, COLUMN NUMBER, GROUP INDICATE, JUSTIFIED RIGHT, PICTURE, RESET, BLANK 
WHEN ZERO, SOURCE, SUM, and VALUE. It is illegal to give an RD level clause at the group or 
element level. 

CURRENT ELEMENT IS NOT RECOGNIZABLE (word) 

CURRENT OPERAND EXPECTED TO BE AN INTEGER (word) 

CURRENT OPERAND EXPECTED TO BE A PROGRAMMER ASSIGNED NAME (word) 

DATA-NAME EXPECTED TO FOLLOW *SUM UPON* CLAUSE (word) 

DATA-NAME IS IMPROPERLY QUALIFIED OR UNDEFINED (word) 

♦DISPLAY* MUST FOLLOW *USAGE* (word) 

If the USAGE clause is specified, it should be USAGE IS DISPLAY. A report writer element is always 
assumed to have display usage. 

GROUP CONTROL IDENTIFIER NOT DEFINED IN CONTROL CLAUSE. 

*GROUP INDICATE* CLAUSE MAY BE SPECIFIED ONLY FOR TYPE DETAIL ELEMENTARY ITEMS. 

ILLEGAL GROUP NAME. 

The data-name following the level number of a report group must be unique within a report and cannot 
reflect qualification, subscripting, or indexing. 

ILLEGAL GROUP TYPE CLAUSE (word) 

ILLEGAL *LINE IS NEXT PAGE* CLAUSE. 

The NEXT PAGE option of the LINE clause is illegal in TYPE PAGE HEADING and TYPE PAGE 
FOOTING report groups. 

ILLEGAL NAME IN SOURCE, SUM OR RESET CLAUSE. 

ILLEGAL *NEXT GROUP* CLAUSE. 

ILLEGAL QUALIFICATION OR SUBSCRIPTING OF ASSIGNED WORD (word) 

The current word may not be qualified or subscripted in the current context of the source code. 
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Message 

ILLEGAL REPORT GROUP LINE NUMBER SPECIFICATION. 

The first subordinate report item description which follows a report group description cannot contain 
a line number specification when the group description specifies a line number clause. 

ILLEGAL REPORT-NAME (word) 

ILLEGAL SUMMARY REPORTING— NO SUM COUNTERS DEFINED. 

ILLEGAL VALUE SPECIFIED (word) 

ILLEGAL *WITH CODE MNEMONIC-NAME* CLAUSE (word) 

ILLEGAL VALUE IN REPORT LINE NUMBER CLAUSE (word) 

INTEGER-1 REQUIRED IN PAGE CLAUSE WHEN ABSOLUTE SPACING USED. 

INTEGER-3 REQUIRED IN PAGE CLAUSE WHEN PAGE HEADING DEFINED AND DETAILS USE 
RELATIVE SPACING. 

INTEGER-4 REQUIRED IN PAGE CLAUSE WHEN PAGE FOOTING DEFLNED AND DETAILS USE 
RELATIVE SPACING. 

INVALID *COLUMN NUMBER* CLAUSE. 

INVALID CONTROL GROUP-CONTROL IDENTIFIER PREVIOUSLY USED. 

INVALID CONTROL GROUP-NO CONTROL CLAUSE DEFINED AT RD LEVEL. 

INVALID DATA-NAME IN RESET CLAUSE (word) 

Data-name-1 in the RESET clause must be specified in the CONTROL clause in the report description. 
It must be of a higher level in the CONTROL hierarchy than the data-name associated with the report 
group in which the RESET clause appears. 

INVALID *FIRST DETAIL* INTEGER (word) 

INVALID *LAST DETAIL* INTEGER (word) 

INVALID *NEXT GROUP* CLAUSE SPECIFICATION. 

The NEXT GROUP clause may not be used in a TYPE PAGE HEADING or TYPE PAGE FOOTING 
report group. 

INVALID PAGE *FOOTING* INTEGER (word) 

INVALID PAGE *HEADING* INTEGER (word) 

INVALID *PAGE LIMIT* INTEGER (word) 

INVALID PICTURE CLAUSE. 

INVALID RESET CLAUSE—CONTROL HIERARCHY RULES VIOLATED. 

INVALID *SUM* CLAUSE SPECIFICATION. 

The SUM clause may appear only in a TYPE CONTROL FOOTING or TYPE DETAIL report group. 

INVALID SUM COUNTER USAGE— CONTROL HIERARCHY RULES VIOLATED. 

LEVEL NUMBER ERROR-01 IS MISSING. 

LINE CLAUSE ABSOLUTE VALUE EXCEEDS PAGE CLAUSE LIMITS. 

LINE CLAUSE CONFLICTS WITH PAGE CLAUSE SPECIFICATIONS. 

*LINE NUMBER* CLAUSE IS REQUIRED FOR REPORT LINE. 
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MNEMONIC-NAME IN *WITH CODE* CLAUSE IS UNDEFINED OR INVALID (word) 

Either the name is not defined or the wrong mnemonic-name in the SPECIAL-NAMES SECTION has been 

referenced. 
NEXT GROUP CLAUSE ABSOLUTE VALUE EXCEEDS PAGE CLAUSE LIMITS. 
NO LEVEL NUMBER FOLLOWING AN RD-NO REPORT GROUPS. 
♦PICTURE* CLAUSE IS REQUIRED FOR ELEMENTARY ITEM. 
RD LEVEL INDICATOR MISSING (word) 

The compiler continues searching through the SOURCE RECORDS until a level RD is found. 
REPORT GROUP *TYPE* CLAUSE IS REQUIRED. 

RESET CONTROL IDENTIFIER NOT DEFINED IN CONTROL CLAUSE. 
♦SOURCE, SUM OR VALUE* CLAUSE IS REQUIRED FOR ELEMENTARY ITEM. 
SUM CLAUSE OPERAND NOT DEFINED IN SOURCE CLAUSE OF DETAIL REPORT GROUP. 
UNDEFINED NAME IN THE *CONTROLS ARE* CLAUSE (word) 
UNUSED IDENTIFIER IN CONTROL CLAUSE. 

♦WITH CODE MNEMONIC-NAME* CLAUSE MUST PRECEDE *COPY* STATEMENT. 
*ZERO* EXPECTED TO FOLLOW *BLANK WHEN* (word) 
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A FILE NAME MUST NOT BE REFERENCED IN MORE THAN ONE USE STATEMENT (word) 

A RECORD NAME WAS NOT FOUND FOR THE FILE-NAME (word) 

A SECTION-NAME MUST FOLLOW THE DECLARATIVES HEADER. 

ADD OR SUBTRACT OPERANDS EXCEED 18 DIGITS WHEN SUPERIMPOSED ON DECIMAL POINTS. 

♦AFTER* IVUiY ONLY FOLLOW A CONDITION WITHIN A PERFORM STATEMENT (word) 

ARE MORE LEFT PARENTHESES THAN RIGHT PARENTHESES IN COMPUTE STATEMENT. 

ARE MORE RIGHT PARENTHESES THAN LEFT PARENTHESES IN COMPUTE STATEMENT. 

*ASCENDING/DESCENDING* MUST BE SPECIFIED IN SORT STATEMENT (word) 

Either ASCENDING or DESCENDING must be specified at least once. If ON is specified, either word 
must immediately follow. 

*AT END* OPTION OF READ STATEMENT VALID ONLY FOR SEQUENTIAL ACCESS FILES (word) 

*AT END* OR *LNVALID KEY* REQUIRED IN READ STATEMENT (word) 

Either AT END or INVALID KEY is required in the READ statement. If AT is specified, END must be 
given also. 

*AT END* REQUIRED IN RETURN STATEMENT (word) 

IE AT is specified, then END must be given also. 

ATTEMPTED ARITHMETIC OPERATION ON NON- NUMERIC ITEM. 

*BEF ORE/AFTER ADVANCING* OPTION IS VALID ONLY FOR NON-MASS STORAGE (word) 

*BEFORE* OR *AFTER* EXPECTED IN CURRENT WRITE STATEMENT (word) 

The current word is not recogTiizable. The compiler is looking for BEFORE, AFTER, INVALID, 
or the next verb. 

*BEFORE* OR *AFTER* MUST FOLLOW *USE* (word) 

*BY* EXPECTED AT THIS POINT IN *COPY REPLACING* (word) 

*BY* IS MISSING IN EXAMINE STATEMENT (word) 

The word BY is required in the REPLACING BY option of the EXAMINE TALLYING statement and is 
required by Itself in the EXAMINE REPLACING statement. 

*BY* MUST FOLLOW FIRST OPERAND OF MULTIPLY STATEMENT (word) 

*BY* MUST FOLLOW *UP* OR *DOWN* IN A SET STATEMENT (word) 

CANNOT MIX INDEXING AND SUBSCRIPTING IN ONE REFERENCE (word) 

COMP-1 OR COMP-2 FIELDS CAN BE COMPARED TO NUMERIC FIELD ONLY. 

COMPILER DOES NOT ALLOW MORE THAN 63 LEFT PARENTHESES WITHOUT ANY INTERVENING 
RIGHT PAREN. 

♦CORRESPONDING* OPERATIONS ILLEGAL FOR ITEMS WITH LEVEL GREATER THAN 49. 

♦CORRESPONDING* OPERATIONS ILLEGAL FOR ELEMENTARY ITEMS. 

CURRENT IDENTIFIER DOES NOT BELONG TO FILE SPECIFIED BY *SQRT* STATEMENT (word) 

CURRENT IDENTIFIER MUST NOT BE USED IN MORE THAN ONE STATEMENT (word) 
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CURRENT OPERAND OF ENTER STATEMENT MUST BE AN BDENTIFIER, FILE, PROCEDURE NAME, 
OR LITERAL (word) 

S CURRENT OPERAND OF ENTER STATEMENT MUST BE A ROUTINE-NAME (word) 

S CURRENT WORD HAS OCCURRED OUT OF CONTEXT— COMPILER IGNORES AND CONTINUES AT 

NEXT VERB (word) 

The word DECLARATIVES, USE, EXIT, ELSE, or END has been used put of context. The word is 
ignored and the compiler looks for the next key word. 

CURRENT WORD IN PERFORM STATEMENT SHOULD BE *TIMES* (word) 

The second element, exclusive of the THRU option, is an assigned word or numeric literal and thus 
implies the TIMES option is being used. The current word should be TIMES. 

CURRENT WORD IN PERFORM STATEMENT SHOULD BE *UNTIL* OR *VARYING* (word) 

The second element, exclusive of the THRU option, is not an assigned word or numeric literal, thus 
UNTIL or VARYING IS EXPECTED. 

S DATA-NAME CANNOT OCCUR PRIOR TO *UP/DOWN BY* IN *SET* (word) 

S DATA-NAME HAS MORE THAN 49 LEVELS OF QUALIFICATION (word) 

S DATA-NAME IS NOT UNIQUE AND NOT QUALIFIED. 

S DATA-NAME IS NOT UNIQUE WITHIN RANGE OF PREVIOUS QUALIFIER (word) 

S DATA -NAME USED WHERE A FILE -NAME WAS EXPECTED (word) 

S DEPENDING ON OPTION OF GO TO MISSING (word) 

The DEPENDING ON option must be used when more than one procedure-name is specified in a 

GO TO statement. 
DIVIDE, MULTIPLY, SUBTRACT, PERFORM OPERAND MUST BE IDENTIFIER OR NUMERIC 
LITERAL (word) 

The operand (word) does not meet the requirements of a programmer-assigned word. 
♦DIVISION* MUST FOLLOW *PROCEDURE* (word) 

The compiler assumes that DIVISION has been omitted and continues compilation. 

S EACH IDENTIFIER USED IN PERFORM MUST BE A NUMERIC ELEMENTARY ITEM (word) 

S EITHER *OUTPUT* OR *GIVING* OPTION REQUIRED IN SORT STATEMENT (word) 

S *ELSE* ENCOUNTERED AND CURRENT VERB IS NOT *IF* (word) 

S *ELSE* OR TERMINAL PERIOD MUST FOLLOW *NEXT SENTENCE* EXCEPT IN SEARCH (word) 

Within a conditional statement, the word ELSE or a terminal period must follow NEXT SENTENCE. 
If none of these were found a test is made for a key word or A-margin element. This diagnostic is 
produced after these tests fail to find the necessary element. 

S *END DECLARATIVES* DETECTED OUTSIDE OF DECLARATIVES SECTION (word) 

S *END DECLARATIVES* MUST BE FOLLOWED BY A PROCEDURE -NAME (word) 

S *END* DETECTED IN A-MARGIN— NEXT WORD NOT *PROGRAM* NOR *DECLARATIVES* (word) 

S *END* DETECTED WHILE PROCESSING DECLARATIVES— ASSUMED *END DECLARATIVES* (word) 

If the word END is encountered while processing a DECLARATIVES procedure and the word following 
is not DECLARATIVES or PROGRAM, the compiler assumes it to be END DECLARATIVES. 
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*END PROGRAM* DETECTED WITHIN DECLARATWES SECTION (word) 

The END DECLARATIVES statement was not found while processing the DECLARATIVES section; 
however, END PROGRAM was encountered. Thus, the entire PROCEDURE division was probably 
processed as being contained within the DECLARATIVE section. 

S *ENTER* ROUTINE -NAMES CANNOT BE QUALIFIED (word) 

S *ERROR* REQUIRED IN ON SIZE ERROR OPTION (word) 

W EXAMINE IDENTIFIER IS ALPHABETIC AND AT LEAST ONE LITERAL IS NOT ALPHABETIC. 

S EXAMINE IDENTIFIER IS NOT USAGE DISPLAY (word) 

W EXAMINE IDENTIFIER IS NUMERIC AND AT LEAST ONE LITERAL IS NOT NUMERIC. 

S EXIT VERB MUST COMPRISE A PARAGRAPH BY ITSELF. 

S FILE -NAME CANNOT REDEFINE ANOTHER DATA-NAME. 

S FILE -NAME IS NOT UNIQUE (word) 

S FILE-NAME IS UNDEFINED (word) 

S FILE-NAME MAY NOT BE AN OCCURRING ITEM. 

W *FINIS* DETECTED BEFORE *END PROGRAM*— ASSUMED END PROGRAM (word) 

W *FINIS* OR *IDENTIFICATION* DO NOT FOLLOW *END PROGRAM*— ASSUME STACKED JOB (word) 

The compiler assumes the job does not contain stacked compilations. 

FIRST ELEMENT IS INVALID IN THE MOVE STATEMENT (word) 

The first element must be a data-name, literal, SYSTEM-DATE, SYSTEM-TIME, CORR, or 
CORRESPONDING. It does not meet the specifications of a programmer-assigned word. 

FIRST ITEM COPIED WAS NOT A PROCEDURE NAME. 

FIRST OPERAND IN THE CONDITIONAL STATEMENT IS INVALID (word) 

The first operand does not meet the specification of a programmer-assigned word. It must be a 
data-name, literal, NOT, unary minus, or a left parenthesis. 

*FROM, BY OR UNTIL* EXPECTED IN PERFORM VARYING STATEMENT (word) 

The PERFORM VARYING option syntax must be exact. FROM, BY, or UNTIL is expected and has not 
been found. 

♦FROM* IS MISSING IN SUBTRACT CORRESPONDING STATEMENT (word) 

The reserved word FROM is required at this point in the CORRESPONDING option of the SUBTRACT 
statement. 

*GIVING* OPTION REQUIRED WITH *BY* AND *INTO FOLLOWED-BY-LITERAL* OPTIONS OF 
DIVIDE (word) 

If BY is used, or INTO with a non data-name operand is used, the GIVING option is required in the 
DIVIDE statement. 

S HIGHEST LEVEL QUALIFIER IS NOT UNIQUE (word) 

S IDENTIFIER DESCRIBING THE TABLE IN SEARCH STATEMENT MUST CONTAIN AN OCCURS 

CLAUSE (D idn) 
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IDENTIFIER DESCRIBING THE TABLE IN SEARCH STATEMENT MUST CONTAIN INDEXED BY 

CLAUSE (D idn) 

IDENTIFIER ENCOUNTERED NOT FOUND IN REPORT SECTION/DATA DIVISION OR WAS NOT PROPER 

TYPE (word) 

S IDENTIFIER MUST REPRESENT A REPORT GROUP NAMED IN THE REPORT SECTION (word) 

S IDENTIFIER SPECIFIED IN TIMES OPTION IS NOT NUMERIC (word) 

S IF ONE PARAGRAPH-NAME APPEARS IN A SECTION, ALL PARAGRAPH-NAMES MUST APPEAR IN 

SECTIONS (word) 

S IF *G0 TO-PERIOD-* IS SPECIFIED IT MUST APPEAR IN SENTENCE BY ITSELF (word) 

S IF *WITH* IS SPECIFIED IN OPEN STATEMENT, *NO REWIND* MUST FOLLOW (word) 

S ILLEGAL ATTEMPT TO PERFORM A SECTION WITHIN A SORT PROCEDURE. 

The remainder of the PROCEDURE DIVISION must not contain any transfers of control to points 

inside the SORT input and output procedures. 

S ILLEGAL CHARACTER IN ARITHMETIC OPERATOR (word) 

S ILLEGAL DATA-NAME (word) 

The current operand (word) does not meet the requirements of a programmer-assigned word; it 
should be a data-name. 

ILLEGAL FILE -NAME (word) 

The current operand (word) does not meet the specifications of a programmer-assigned word; it 
should be a file-name. 

ILLEGAL FIRST ELEMENT OF ADD/SUBTRACT STATEMENT (word) 

The first element must be a data-name, floating-point literal, numeric literal, integer literal, CORR, 
or CORRESPONDING. 

ILLEGAL MNEMONIC -NAME (word) 

The current operand (word) does not meet the requirements of a programmer-assigned word; it 
should be a mnemonic-name. 

ILLEGAL OPERAND FOR INITIATE, GENERATE, TERMINATE STATEMENT (word) 

The current operand (word) does not meet the specifications of a programmer-assigned word. For a 
GENERATE statement it should name a TYPE DETAIL report group or an RD entry. For either of the 
other two, it should be the name of an RD entry. 

ILLEGAL PROCEDURE-NAME (word) 

The current operand (word) does not meet the specifications of a programmer-assigned word; it 
should be a procedure-narne. 

S ILLEGAL QUALIFICATION LEVEL FOUND WHILE PROCESSING *CORRESPONDING* ITEMS. 
S ILLEGAL SORT NON-SORT PROCEDURE REFERENCE. 

S ILLEGAL TO MOVE A NON-LNTEGER OR FLOATING POINT NUMERIC ITEM TO A-N OR A-N 
EDITED (D idn) 
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ILLEGAL TO MOVE EDITED OR ALPHABETIC ITEM TO A NUMERIC OR NUMERIC EDITED ITEM 
(D idn) 

A numeric edited, alphanumeric edited, alphabetic, or floating-point edited data item may not be 
moved to a numeric edited, floating-point edited, numeric (non-integer), integer, COMPUTATIONAL-1, 
or floating-fwint item. 

ILLEGAL TO MOVE NUMERIC OR NUMERIC EDITED ITEM TO AN ALPHABETIC FIELD (D idn) 

A numeric edited, floating-point edited, numeric (non-integer), integer, COMPUTATIONAL-1, or 
floating-point field may not be moved to an alphabetic field. 

ILLEGAL USE OF ARITHMETIC -EXPRESSION IN CONDITIONAL STATEMENT (word) 

An arithmetic-expression can appear only as a subject and/or object in the relational option or as a 
subject in the sign option of a conditional statement. 

ILLEGAL USE OF LITERAL IN CONDITIONAL STATEMENT (word) 

A nonnumeric literal can appear as the subject or object only in the relational option of a 
conditional statement. 

IMPERATIVE STATEMENT MUST FOLLOW *ON SIZE ERROR, AT END, INVALID KEY* (word) 

Either the imperative statement is missing or an IF statement has been used: conditional statements 
are not legal following these options. 

IMPROPER USE OF COBOL KEYWORD (word) 

IN NESTED IF STATEMENT *IF* WILL NOT BE EXECUTED WHEN FOLLOWS *NEXT SENTENCE* OR 
*GO TO* 

IN NESTED IF STATEMENT MORE *ELSE* STATEMENTS THAN *IF* STATEMENTS WERE ENCOUNTERED. 

IN SEARCH ALL, AND IS THE ONLY ALLOWABLE LOGICAL CONNECTOR. 

INCOMPLETE RELATIONAL OPTION OF A CONDITIONAL STATEMENT (word) 

In the relational option, the first relation must be complete. The compiler has not been able to 
identify an object. 

INCORRECT FORMAT IN IMPLIED OPERATOR AND CONNECTOR OPTION OF RELATIONAL 
CONDITION (word) 

INDEX -DATA -IT EM ALLOWED ONLY IN SEARCH, SET, AND RELATION CONDITIONS (word) 

INDEX-NAME ALLOWED ONLY IN PERFORM, SEARCH, SET, AND RELATION CONDITIONS (word) 

INDEX-NAMES CANNOT BE QUALIFIED (word) 

INITIATE, TERMINATE, AND GENERATE NOT ALLOWED IN DECLARATIVES. 

INP MAY NOT BE USED AS MNEMONIC-NAME IN *DISPLAY*. 

INPUT, OUTPUT, I-O, OR INPUT -OUTPUT MUST FOLLOW OPEN VERB (word) 

One of these reserved words is expected following the OPEN verb. The compiler cannot identify the 
current word. 

* INPUT -OUT PUT* OPTION APPLICABLE ONLY FOR MASS STORAGE (word) 

INSUFFICIENT PROCEDURE -NAMES IN GO TO DEPENDING ON STATEMENT (word) 

At least two procedure -names must precede the DEPENDING ON option of a GO TO statement. 

INTEGER IN TIMES OPTION IS NOT POSITIVE (word) 
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Message 

*INTO* OR *BY* MUST FOLLOW FIRST OPERAND OF DIVIDE STATEMENT. 

INVALID ADD/SUBTRACT STATEMENT (word) 

A data-name, numeric literal, or one of the reserved words TO, GIVING, or FROM is expected at 
this point in the source statement. IE the word is a reserved word other than TO, GIVING, or FROM, 
the compiler considers itself lost and proceeds to the next keyword. 

INVALID ALTER STATEMENT (word) 

The first TO of the TO PROCEED TO phrase is required; if PROCEED is specified, the second TO 
must follow. 

I2WALID ARITHMETIC EXPRESSION (word) 

An arithmetic operator and the left parenthesis must be followed by a variable, a unary minus, or a 
left parenthesis. A unary minus must be followed by a variable or a left parenthesis. 

INVALID *AT END* OF SEARCH STATEMENT (word) 

The AT END directive is optional, but if AT is specified, END must be present. 
INVALID CLOSE STATEMENT (word) 

When the word WITH is specified, the NO REWIND or LOCK words must be given. If the word NO is 



INVALID COMPUTE STATEMENT (word) 

The expression following the equal sign must be a numeric data-item, literal, or arithmetic expression. 
The current operand (word) is not a unary minus, left parenthesis, or a programmer-assigned word. 

INVALID ELEMENT WITHIN DISPLAY STATEMENT (word) 

Data-names, literals, or figurative constants other than ALL are expected. The current word does not 
meet the specifications of a programmer-assigned word. 

♦INVALID KEY* OPTION OF READ STATEMENT VALID ONLY FOR RANDOM ACCESS MASS STORAGE 
FILES (word) 

♦INVALID KEY* OF *WRITE* AND *l/0* OF *OPEN* OPTIONS APPLICABLE ONLY FOR MASS 
STORAGE (word) 

INVALID OPERAND IN SORT STATEMENT (word) 

The current word is not identifiable. The compiler was looking for another data -name or one of the 
following reserved words: ON, ASCENDING, DESCENDING, INPUT, or USING. 

INVALID USE OF FIGURATIVE CONSTANT *ALL* (word) 

The literal following all must be either a nonnumeric literal or a figurative constant other than ALL. 

INVALID WRITE ADVANCING STATEMENT (word) 

In the advancing option of the WRITE statement, only data-names, mnemonic -names, and integer 
literals are allowed. The current word does not meet the specifications of a programmer-assigned word. 

LANGUAGE-NAME OF ENTER STATEMENT MUST BE COMPASS, FORTRAN, OR COBOL (word) 

LITERAL OTHER THAN FIG CON *ALL* EXPECTED (word) 

MASS STORAGE WRITE STATEMENT MUST SPECIFY INVALID KEY (word) 

MAXIMUM OF 48 LEVELS OF KEY DATA-NAMES MAY BE TESTED IN THE SEARCH ALL CONDITION 
(D idn) 
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Type Message 

S MINIMUM OF TWO OPERANDS MUST PRECEDE GIVING OPTION OF ADD. 

W MNEMONIC-NAME GIVEN IS NOT UNIQUE— *CONSOLE+ USED INSTEAD. 

S MNEMONIC-NAME NOT DEFINED AS 1-CHAR LIT IN SPECIAL-NAMES (word) 

S MNEMONIC-NAME USED IS EQUATED TO AN ILLEGAL DEVICE FOR USE IN *ACCEPT* (OUT OR PUN) 

(word) 

S MULTIPLY **** BY NUMERIC LITERAL REQUIRES *GrVING* OPTION (word) 

W NAME USED IS NOT A MNEMONIC-NAME— *CONSOLE* USED INSTEAD. 

S *NEXT SENTENCE* OR A VERB EXPECTED m CONDITIONAL STATEMENT (word) 

The words NEXT SENTENCE or a verb is expected at this point in the conditional statement. 

3 NO SUBJECT DATA-NAME WAS ENCOUNTERED IN *SET* STATEMENT-(D idn) 

S NON-EXECUTABLE STATEMENTS FOLLOW STOP RUN OR UNCONDITIONAL GO TO (word) 

The compiler has encountered statements following STOP RUN or an unconditional GO TO within the 
same paragraph. Those statements can never be executed. 

S NON-NUMERIC ITEM CANNOT BE USED IN *SET* STATEMENT-(D idn) 

S NON SORT FILE ENCOUNTERED WHERE SORT FILE REQUIRED (word) 

S NON-UNIQUE MNEMONIC-NAME USED IN *WRITE ADVANCING* (word) 

S NON-UNIQUE PROCEDURE-NAME REFERENCED 

S NON-UNIQUE SUBSCRIPT IS NOT QUALIFIED (word) 

S *NOT* OPTION CANNOT APPEAR WITHIN CONDITION PART OF A *NOT CONDITION*. 

W *NOTE* STATEMENT FOLLOWING A PARAGRAPH-NAME IS TERMINATED BY NEXT PARAGRAPH- 
NAME (word) 

When the NOTE statement appears as the first sentence of a paragraph, the entire paragraph is 
considered to be part of the NOTE character string. The compiler assumes the current element in 
the A-margin to be a procedure -name. 

When a NOTE sentence appears as other than the first sentence of a paragraph, the commentary ends 
with the first instance of a period followed by a space. 

S NUMERIC ITEM IN *SET* STATEMENT MUST BE LESS THAN 18 NUMERIC DIGITS-(D idn) 

S NUMERIC OPERAND IS GREATER THAN 18 DECIMAL DIGITS-(D idn) 

An attempt has been made to use the identifier (D idn) as an operand in an arithmetic statement. The 
size of such operands may not exceed 18 digits. The word indicated in the message is the internal 
name assigned by the compiler to the item. Reference the DATA DIVISION source listing to determine 
the actual name of the item involved. 

OBJECT OF A SET VERB MUST NOT BE A LITERAL. 
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Type Message 

ONE CHARACTER LITERAL OR FIGURATIVE CONSTANT -EXCEPT ALL-EXPECTED AT THIS 

POINT nsr EXAMINE (word) 

S ONLY INTEGERS ARE ALLOWED WITH TRACE CONTROL OPTIONS (word) 

S ONLY ONE *WHEN* OPTION ALLOWED IN SEARCH ALL (word) 

S OPEN, READ, SEEK, AND WRITE ARE NOT ALLOWED IN DECLARATIVES SECTION. 

S ONLY USE BEFORE/AFTER BEGINNING ARE VALID LABEL PROCEDURES ON MASS STORAGE (word) 

S OPERAND FOLLOWING +BEFORE/AFTER* OR *BEFORE/AFTER STANDARD* IS NOT IDENTIFIABLE. 

W OPERAND OF PREVIOUS DIAGNOSTIC ASSUMED CORRECT IN ORDER TO CONTINUE SYNTAX CHECK 
(word) 

The compiler assumes the operand to be as stated in the previous diagnostic in order to enable 
continuation of syntax checking within the current statement. 

This message does not clear the previous error; it indicates that the remainder of the statement is 
checked for additional syntax errors. 

W PARAGRAPH HEADER PRECEDING THE COPY STATEMENT IS EXPECTED AT THIS POINT (word) 

S PARAGRAPH-NAME AND PROCEDURAL PARAGRAPH MUST FOLLOW USE STATEMENT (word) 

S PARAGRAPH -NAME ASSIGNED TO A *NOTE* STATEMENT MAY NOT BE REFERENCED (word) 

When the NOTE verb immediately follows a paragraph-name, the name is a component of the NOTE 
statement and thus cannot be referenced by any procedural statements. 

S PARAGRAPH-NAME EXPECTED TO FOLLOW SECTION-NAME (word) 

S PARAGRAPH -NAME NOT UNIQUE WITHIN ITS SECTION (word) 

S PARAGRAPH -NAME PREVIOUSLY USED AS A SECTION NAME (word) 

W PREVIOUS DIAGNOSTIC SUSPENDED SYNTAX CHECK—RESUMED AT THIS POINT (word) 

S PROCEDURAL SEQUENCE CONTROL IDENTIFIER MAY NOT BE FLOATING POINT-(D idn) 

The control identifier for GO TO DEPENDING ON, PERFORM, and WRITE statements may not be 
floating-point items. 

PROCEDURAL SEQUENCE CONTROL IDENTIFIER MUST BE AN ENTEGER-(D idn) 

The procedural sequence controlling identifier-(D idn) for GO TO DEPENDING ON, PERFORM, and 
WRITE statements must be defined as having no positions to the right of its assumed decimal point. 
This numeric item is not an integer. 

PROCEDURAL SEQUENCE CONTROL IDENTIFIER MUST BE NUMERIC ITEM-(D idn) 

The procedural sequence controlling identifier (D idn) for GO TO DEPENDING ON, PERFORM, and 
WRITE statements must be defkied as a numeric elementary item with no positions to the right of its 
assumed decimal point. The identifier (D idn) is not numeric. 
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PROCEDURAL STATEMENT EXPECTED TO FOLLOW A PARAGRAPH-NAME (word) 

A procedure statement verb was not detected following a paragraph-name. 

S PROCEDURAL VERB EXPECTED BUT WAS NOT FOUND (word) 

S PROCEDURE DIVISION HEADING MISSING OR ILLEGAL. 

S *PROCEDURE* MUST FOLLOW *ERROR* OR * LABEL* IN DECLARATIVES (word) 

S * PROCEDURE* MUST FOLLOW *INPUT* AND *OUTPUT* OF SORT STATEMENT (word) 

W PROCEDURE -NAME EXPECTED IN *A* MARGIN (word) 

The current word does not meet the specifications of a programmer-assigned word; a procedure -name 
was expected. 

S PROCEDURE -NAME COPIED IS NOT EQUAL TO THE PROCEDURE NAME ON THE SOURCE STATEMENT. 

S PROCEDURE -NAME OR DECLARATIVES HEADER EXPECTED (word) 

A procedure-name or the DECLARATIVES header must follow the PROCEDURE DIVISION header. They 
must start in the A -margin of the source card. 

W PROCEDURE-NAMES AND PARAGRAPHS MUST HAVE TERMINAL PERIOD. 

S QUALIFICATION OF PROCEDURE NAMES NOT ALLOWED IN A SORT STATEMENT. 

S RECORD-NAME MUST FOLLOW RELEASE VERB (word) 

The current operand does not meet the specifications of a programmer-assigned word. It should be 
a record -name. 

S *RECORD* REQUIRED AT THIS POINT IN SYNTAX. 

W *REEL* AND *LOCK* OPTIONS APPLICABLE ONLY FOR MAGNETIC TAPE (word) 

S REEL OPTION NOT APPLICABLE TO MASS STORAGE FILES (word) 

S *RELEASE* FROM IDENTIFIER MUST BE IN INPUT RECORD AREA OR WORKING STORAGE SECTION (word) 

S *RELEASE* RECORD-NAME AND IDENTIFIER CAN NOT BE SAME DATA ITEM (word) 

S *RELEASE* RECORD-NAME MUST BE ASSOCIATED WITH A SORT FILE (word) 

S RELEASE STATEMENT APPEARS OUTSIDE A SORT INPUT PROCEDURE— NOTHING GENERATED. 

S *REPLACING/TALLYING* MUST FOLLOW EXAMINE DATA-NAME AND PRECEDE *UNTIL/FIRST/ALL/ 
LEADING*. 

Either REPLACING or TALLYING must be specified following the data-name. The next element 
specified must either be UNTIL FIRST (UNTIL is optional if following REPLACING), ALL, or 
LEADING. 

S REPORT-NAME USED WHERE A FILE -NAME WAS EXPECTED. 

W RESERVED WORD ENCOUNTERED OUT OF CONTEXT (word) 

S *RETURN* INTO IDENTIFIER MUST BE IN OUTPUT RECORD AREA OR WORKING-STORAGE SECTION 

(word) 

RETURN STATEMENT APPEARS OUTSIDE A SORT OUTPUT PROCEDURE— NOTHING GENERATED. 
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S *REVERSED* AND *REWIND* OPTIONS APPLICABLE ONLY FOR MAGNETIC TAPE (word) 

W *REVERSED* OPTION LEGAL ONLY FOR SINGLE REEL FILE (word) 

S *RUN* OR A LITERAL OTHER THAN *ALL* MUST FOLLOW THE STOP VERB (word) 

S SEARCH ALL CONDITIONS MUST BE RELATION WITH EQUAL OPTIONS OR CONDITION NAME. 

S SEARCH ALL KEY DATA-NAMES MUST BE TESTED INCLUSIVELY- HIGHEST TESTED THROUGH 

LOWEST. 

SEARCH VARYING IDENTIFIERS DESCRIPTION MUST IMPLY INTEGER OR CONTAIN USAGE IS 
INDEX (D idn) 

S .SECTION-NAME NOT UNIQUE (word) 

S *SEEK*, *INVALID KEY* OF READ, VALID ONLY FOR RANDOM ACCESS MASS STORAGE FILES (word) 

♦SENTENCE* MUST FOLLOW *NEXT* IN A CONDITIONAL STATEMENT— ASSUMED *SENTENCE* (word) 
The compiler assumes NEXT SENTENCE in order to continue syntax checking. 
S SIGN IS ILLEGAL WITH AN INTEGER SUBSCRIPT. 

S SIZE OF ENTER ROUTINE NAMES CANNOT EXCEED 8 CHARACTERS (word) 
S SORT-FILE-NAME USED WHERE A FILE -NAME WAS EXPECTED. 
S SORT INPUT PROCEDURE DOES NOT CONTAIN A RELEASE STATEMENT. 
S SORT INPUT PROCEDURE IS NOT A SECTION NAME. 
S SORT OUTPUT PROCEDURE DOES NOT CONTAIN A RETURN STATEMENT 

S SORT OUTPUT PROCEDURE IS NOT A SECTION NAME. 

S SORT PROCEDURES OVERLAP 

SORT input and output procedures must consist of one or more sections that are written consecutively 
and do not form a part of one another. 

S SORT STATEMENT IS ILLEGAL IN DECLARATIVES OR SORT PROCEDURE. 

W STATEMENT WHICH CAUSED PREVIOUS DIAGNOSTIC APPEARS INCOMPLETE (word) 

According to the status of the compiler when the previous diagnostic was generated, the statement in 
error appeared to be incomplete in addition to containing the error condition stated in the diagnostic. 

S SUBJECT AND OBJECT OF RELATIONAL CONDITION ARE BOTH LITERALS. 

S SUBJECT OF A CLASS TEST MUST BE USAGE DISPLAY— IMPLICITLY OR EXPLICITLY— (word) 

S SUBJECT OF A CONDITION-NAME CONDITION MUST BE A CONDITION-NAME (word) 

S SUBJECT OF A NUMERIC CLASS TEST CANNOT BE ALPHABETIC (word) 

S SUBJECT OF A *SIGN* CONDITION MUST BE NUMERIC (word) 

S SUBJECT OF AN ALPHABETIC CLASS TEST CANNOT BE NUMERIC (word) 

S SUBJECT OF EACH CONDITION MUST BE IN KEY IS CLAUSE OF SEARCH ALL IDENTIFIER (D idn) 

S SUBJECT OF *SET* VERB IS ILLEGAL ACCORDING TO THE OBJECT(S) ENCOUNTERED-(D idn) 

S SUBSCRIPT CANNOT BE AN OCCURRING ITEM (word) 
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S SUBTRACT ****FROM *LITERAL* REQUffiES GIVING OPTION (word) 

W TERMINAL PERIOD NOT FOUND WHERE EXPECTED IN PROCEDURAL STATEMENT (word) 

S THE CURRENT NAME MUST BE A RECORD DESCRIPTION ENTRY (word) 

S THE FIGURATIVE CONSTANT *ALL* IS NOT ALLOWED IN TRACE (word) 

S THE SEARCH IDENTIFIER MUST NOT BE SUBSCRIPTED OR INDEXED (word) 

S *TO* MISSING IN A GO TO STATEMENT (word) 

The word TO may not be omitted. The compiler assumes (word) is a procedure-name in order to 
continue syntax checking. 

S *TO* MUST FOLLOW *EQUAL* IN RELATIONAL CONDITIONAL (word) 

S *TO* MUST FOLLOW FIRST OPERAND OF MOVE STATEMENT (word) 

S *TO* REQUIRED IN ADD CORRESPONDING (word) 

S UNARY MINUS MUST BE FOLLOWED BY A LEFT PARENTHESIS, IDENTIFIER OR NUMERIC LITERAL 
(word) 

S UNBALANCED PARENTHESES ENCOUNTERED IN A CONDITION. 

S UNDEFINED DATA-NAME (word) 

W UNDEFINED MNEMONIC-NAME— *CONSOLE* USED INSTEAD. 

S UNDEFINED NAME USED AFTER *WRITE— ADVANCING* (word) 

S UNDEFINED SUBSCRIPT (word) 

S UNIDENTIFIABLE WORD FOLLOWING CONDITION PART OF *PERFORM* (word) 

W *UNIT* OPTION APPLICABLE ONLY FOR SEQUENTIAL MASS STORAGE (word) 

S UNRECOGNIZABLE OPERAND IN A CONDITIONAL STATEMENT (word) 

A variable (i.e. , data-name or literal) has been encountered or is assumed if a severe diagnostic 
appears above but the next operand cannot be identified. The operand must be an arithmetic operator, 
condition-name, NOT, relational operator, NLTVIERIC, ALPHABETIC, POSITIVE, NEGATWE, ZERO, 
or right parenthesis. 

S *UNTIL* OPTION MAY APPEAR ONLY 3 TIMES IN PERFORM STATEMENT (word) 

S USE LABEL PROCEDURES ARE NOT APPLICABLE TO SCRATCH FILES (word) 

S *USE* STATEMENT MUST FOLLOW EACH SECTION-NAME IN DECLARATIVE SECTION (word) 

S WHEN A DATA-NAME IS INDEXED THE OPERATOR •* OR - MUST BE FOLLOWED BY INTEGER. 

S *WHEN CONDITION-1* REQUIRED IN SEARCH STATEMENT (word) 

S *WHEN* IS VALID ONLY WITHIN A SEARCH STATEMENT. 

S WORD INAPPROPRIATE IN *COPY REPLACING* STATEMENT (word) 
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A/N EDIT OF ITEM GREATER THAN 4095 CHAR— EXCESS CHAR TRUNCATED ON RIGHT. 

BCD TOO LARGE FOR BINARY FIELD— ZERO IS MOVED. 

DUPLICATE PROCEDURE-NAME WITHIN A SECTION. 

FLOATING POINT-BCD NUMERIC COMPARISON MAY FAIL. 

FRACTIONAL PORTION TRUNCATION OCCURS ON BCD-BINARY CONVERSION. 

IDENTIFIER IN SET UP BY OR DOWN BY MAY NOT BE A FLOATING POINT ITEM. 

IDENTIFIER IN SET UP BY OR DOWN BY MAY NOT BE AN INDEX DATA ITEM. 

ILLEGAL DECLARATIVES PROCEDURE REFERENCE. 

ILLEGAL TO PERFORM PROCEDURE IN DECLARATIVES THRU PROCEDURE IN NON-DECLARATIVES. 

INVALID PERFORM— PROCEDURE-NAME-2 OCCURS BEFORE PROCEDURE -NAME -1. 

LEFT TRUNCATION MAY OCCUR ON BCD-BINARY CONVERSION. 

LOSS OF SIGNIFICANCE MAY OCCUR ON NUMERIC EDIT. 

NUMBER OF SUBSCRIPTS GFVEN DOES NOT EQUAL NUMBER REQUIRED. 

PROCEDURE -NAME UNDEFINED WITHIN SECTION QUALIFIER. 

TALLY IS 5 DIGITS AND MAY OVERFLOW ON EXAMINE. 

UNDEFINED PROCEDURE NAME (word) 
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CHARACTER IN CONTINUATION FIELD NOT A HYPHEN— ACCEPTED AS HYPHEN. 

COMPILER CANNOT READ THE LIBRARY DIRECTORY FOR COPY. 

COMPILER CANNOT READ THE LIBRARY FOR COPY. 

COPY IS NOT ALLOWED WITHIN A RENAMED FILE OR WITHIN TEXT COPIED FROM THE LIBRARY. 

FIRST NON-BLANK CHARACTER IN CONTINUED NON-NUMERIC LITERAL NOT A QUOTE— ACCEPTED 
AS QUOTE. 

LIBRARY-NAME IN COPY STATEMENT CANNOT BE FOUND IN LIBRARY DIRECTORY. 

ITEM USES MORE THAN 3 SUBSCRIPTS 

ITEM USES MORE THAN 49 LEVELS OF QUALIFICATION 

LIBRARY-NAME IN COPY STATEMENT MAY NOT BE COBOL RESERVED WORD AND MUST BE 8 
CHARS OR LESS. 

NON-COBOL CHARACTER IN SOURCE TEXT— THE FOLLOWING CHARACTER IS ILLEGAL (word) 

NON-NUMERIC LITERAL EXCEEDS 120 CHARACTERS— FIRST 120 ACCEPTED. 

NON-USASI ELEMENT-CLAUSE IGNORED. 

This diagnostic is produced only when an assembly option is exercised by the installation. This error 
is always classed as severe. 

TERMINAL PERIOD MISSING (word) 

WORD EXCEEDS 30 CHARACTERS— FIRST 30 ACCEPTED. 
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FATAL ERROR CONDITIONS 

A system error which prohibits compilation from continuing causes a message of the following format to be 
written on the job standard out file. 



Message 



Significance 



*UCBL x=n function REJECT ON DSl dsi. 
Action phrase. 



X or y returned by blocker/deblocker 

X for LOCATE or SEXPAND ) MASTER 

Corresponding reject code. 



REFERENCE 

MANUAL 



Function 



Action 
phrase 



Any one of the following: PACK, PACKC, PACKR, 
PICK, PICKC, PICKD, LOCATE, SEXPAND, 
ASSIGNM, 3AL0CATE 

Optional description applicable to error message. 
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OBJECT-TIME DIAGNOSTICS 

REPORT WRITER 

During program execution the routines generated to produce a report test for four invalid conditions. The 
following corresponding messages are written on the job standard OUT file. The job is then terminated with 
UCBL ABNORMAL TERMINATION written on the standard OUT file. 

report-name INITIATE ON INITIATED REPORT 
report-name TERMINATE ON UN-XNITIATED REPORT 
report-name GENERATE ON UN-INITIATED REPORT 
report-name REACHED END OF ALLOCATED FILE 

USASI COBOL/SORT 

At the completion of a USASI COBOL/SORT operation, the following informative message is written on the 
standard OUT file. 

UCBL SORT RECORDS IN xxxxxxxx RECORDS OUT yyyyyyyy 

SXL bllC; UC^XlUXJ-LAg \J± VJLlC ejVJA- 1/ v/^c;j.Ci.bxi_fj.X) xx xj,&Oi.u^xux.^xxv ^-y^j.-^ iu ^vi.i'tii^M.-.w** -1^ ^^^^f, _-%,. ^-—.Q -'i-' "-J — o 7 ^ — ' -= O 

voluntary abort message is generated for the job. 

UCBL SORT INSUFFICIENT CORE SCHEDULED 
The user should schedule more core before attempting to run the job again. 
At the end of a SORT operation, if the record counts do not agree the following message is displayed to the operator. 

UCBL SORT RECORD COUNTS DO NOT AGREE ACCEPT ABANDON 

Operator action is as follows: 

1. Press MANUAL INTERRUPT 

2. Type response code Rr, 

3. Type either ACCEPT or ABANDON 

4. Press FINISH 



RERUN/RESTART MESSAGES 



Message 


Significance 


RERUN DUMP number of dump just written 

RERUN FILE FULL. 

LAST DUMP # IS number of last complete 

dump written 


Written on job standard OUT file as each rerun dump is taken 
during program execution. 

Subsequent dump requests are ignored. Dump file may become 
full if allocated area for mass storage file is exceeded, or 
magnetic tape file end-of-reel is reached. 

Either expand mass storage dump file or mount new output tape 
reel. Restart from any dump up to and including last complete 
dump. 
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SYSTEM REJECT CONDITIONS 

A job may abort because of conditions detected by the MASTER B LOCKE R/DE BLOCKER, MIOCS, *DEr, or 
system OCARE processors. The format of such diagnostics is as follows: 



Message 



Significance 



UCBL I/O ERR s mmcc DSI dsi 



Code indicating the object-time processor rejected by 
MASTER. 

Open request processor 
C Close request processor 
R Read request processor 
W Write request processor 
M Move processor 

H Hardware failure processor 

S Seek request processor 

D Rerun/restart processor 

E Multifile processor 

U Unknown reject processor 

2 -digit code indicating which MASTER routine caused 
reject. 

2-digit error code returned by MASTER routine on 
rejection. 

mm Routine 

01 BLOCKER/DEBLOCKER 

02 MIOCS 

03 *DEF 

04 System OCARE 
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TERMINATIVE DIAGNOSTICS 

When the object-time I/O system encounters a trouble area for which no correction can be made, the system generates 
an abortive diagnostic on the standard OUT file for the job. The format of the message is indicated below; the error 
code depends on the source code for interpretation. 

UCBL I/O ERROR s mmn DSI dsi 

s Code indicating which I/O routine generates the diagnostic, 

nnnn Numeric code for the error encountered. 



C 
D 
H 
O 
R 
S 

w 
c 

D 
H 

M 
O 
R 
S 

w 

D 
M 
O 
R 
W 



O 



nnnn 



0001 
0001 
0001 
0001 
0001 
0001 
0001 
0002 
0002 
0002 

0002 
0002 
0002 
0002 
0002 
0003 
0003 
0003 
0003 
0003 



O 0004 
W 0004 



0005 



Significance 



Attempt to CLOSE an unopened file. 

Abnormal termination of a read/write operation in the rerun dump routine. 

Hardware device is inaccessible; processing cannot continue. 

Attempt to OPEN WITH NO REWIND on a file not previously CLOSED WITH NO REWIND. 

Attempt to READ a file which was not opened for INPUT or INPUT-OUTPUT. 

User requested a SEEK on an unopened file. 

Attempt to WRITE on a file declared to be INPUT only. 

Attempt to CLOSE REEL on a mass storage file. 

Rerun file dsi error in the restart control card; control card contains more than four characters. 

Operator decided to abandon the job after encountering an irrecoverable I/O transmission error 
where the user provided no AFTER STANDARD ERROR RECOVERY declarative procedure. 

Logical record size error. A logical record exceeds the maximum size defined for the file. 

Attempt to OPEN WITH NO REWIND a mass storage file. 

Attempt to READ an unopened file. 

User attempted a SEEK on a sequential access file. 

Attempt to WRITE on an unopened file. 

Abnormal termination of a LOCATE, PICK, or READ request in the restart routine. 

Variable portion of a logical record exceeds the maximum variable portion size defined for the file. 

Attempt to OPEN a file which is already open. 

Attempt to READ a file which has reached EOF but has not been closed. 

Attempt to WRITE on a magnetic tape file which has been CLOSED WITH NO REWIND or CLOSED 
WITH REWIND but has not been subsequently opened again. 

Attempt to open a file that shares areas with or is on the same multifile reel as another file which 
is currently open. 

Attempt to WRITE on a mass storage file following a previous WRITE which was rejected; control 
had been passed to the user's INVALID KEY procedure. 

Abnormal termination of a forward I/O search on a multifile reel. 
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Significance 



O 

w 
o 

E 



R 

U 



0006 
0006 

0007 
OOyy 

0106 

0107 
02xx 

OlOx 



Abnormal termination of a tape rewind. 

User program attempted two successive WRITE requests without an intervening READ request on an 
INPUT-OUTPUT file. 

Attempt to OPEN INPUT REVERSED a file with variable length blocked records. 

End-of-reel condition exists on an OUTPUT multifile reel, yy is the position number of the file 
being created at the time the error occurred. 

A PICK request was rejected when the blocker/deblocker routine tried unsuccessfully to mount a 
new segment on the file. 

Defined block area out of bounds to read routine. 

Abnormal status reject on an MIOCS function request; xx is the error code returned by 
MIOCS (section 2.1, MASTER Diagnostic Handbook, Pub. No. 60206800. 

Reject on a BLOCKER/DEBLOCKER request when attempting to PICK a STANDARD label card 
from a file on SYSTEM-INPUT when file is declared to contain labels, x is error code returned 
by blocker/deblocker (section 2.3, MASTER Diagnostic Handbook, Pub. No. 60206800. 
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OPERATOR MESSAGES 



MESSAGE TO OPEEATOB 



Type 



Er 



Br 



Job 



JOB i 



JOBi 



Task 



UCBL 



Br 



JOBi 



JOBi 



JOBi 



UCBL 



UCBL 



UCBL 



UCBL 



Optional Message 



I/O IRE EEE ON DSI dsi 
ACCEPT BYPASS BETEY 
ABANDON 



LBL EBBOE DSI dsi 
BEEL nn ht CcEeUuuu 



INP 
MNT '^^^ DSI dsi 

BEEL nn ON ht 
CeEeUuuu ESVP 



Significance 



Irrecoverable error on 
l/O. User program did 
not specify APTEE 
STANDAED EEBOE 
EECOVEEY DECLAEATIVE, 
Operator must make appro- 
priate decision. 



Header label does not agree 
with information furnished 

by user. 



INP 
MNT DSI dsi BEEL 

nn ON ht CcEeUuuu 



INP 
MNT DSI dsi BEEL 

nn ON UNIT NEXT 
ASSIGNED TO THIS JOB 



File is assigned to alter- 
nating units. Object-time 
l/O system automatically 
switches to alternate reel 
at reel end. 



Action 



1. Press MANUAL 
INTEBBUPT 

2. Type MASTER generated 
response code and one 
action word: 

Action word 

ACCEPT Ignore error 

condition and proceed. 

BYPASS Skip erroneous 
record and proceed. 

RETRY Repeat recovery 
procedures , 

ABANDON Terminate 
job. 

3. Press FINISH 

1. After mounting correct 
reel, type Br, OK 

2. To ignore incompatibility, 
type Er,NO 

3. Press FINISH 

1. Mount reel n on tape 
unit uu 

2. Type response: 

Br, OK Reel mounted 
Rr,NO Request cannot 
be honored 

3. Press FINISH 

Mount reel nn on unit uuu. 
No response required. 



Mount reel nn on imit assigned 
by the *DEF logging message 
immediately following this 
message. 
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ENTER VERB OBJECT CODE EXAMPLES 



The ENTER verb object code varies when data-names are all alphanumeric, all numeric, or mixed. 
The following symbols are used in the VFD (variable field definition) in the examples: 

Characters preceding slash marks (mode indicators) 

O Octal 

A Word address arithmetic 

C Character address arithmetic 

The positive decimal integer following the mode indicator denotes the number of bit positions in the 
variable field. 

Characters following slash marks 

L location 

S length 

zero 

P point location 

Characters in parentheses denote the data -name, file-name or procedure name associated with the 
indicator. For example, S(DN3) means the size of DNS. 



ENTER USASI COBOL Subprograms 

ENTER COBOL; XCBLSUB. 

Resulting object code: 

EXT XCBLSUB 

RIS 

RTJ XCBLSUB 

EOS 

Parameters may not be passed to a COBOL subprogram. Instead, the two programs communicate 
through the Common-Storage section of the DATA Division. 
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ENTEB COMPASS/MASTER Subprograms 

ENTER COMPASS; SUBR, DNl, DN2, DNS, FNl, PNl, C2DN, CIDN 

DN Data -name 

FN File-naiae 

PN Procedure -name 

C2DN COMP-2 data-name 

CIDN COMP-1 data-name 

Resulting object code: 
EXT SUBR 
RIS 
RTJ 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
ROS 



SUBR 

06/52,01/0, C17/L(DN1) 

O7/0,O17/S(DNl) 

06/60, 01/0,C17/L(DN2) 

06/P(DN3) , 06/S(DN#) , 06/P(DN2) , 06/S(DN2) 

06/61,01/0, C17/L{DN3) 

06/40 , O3/0 , A15/L(FN1) 

06/00 , O3/0 , A15/L(PN1) 

06/71,03/0, A15/L(C2DN) 

06/70, O3/0,A15/L(ClDN) 



ENTER USASI FORTRAN Subprogram 
ENTER FORTRAN: SQRTFN; C2DN 

C2DN COMP-2 data-name 

Resulting object code: 
SQRTFN 



EXT 
RIS 
RTJ 
VFD 



SQRTFN 

06/71 , O3/0 , A15/L(C2DN) 
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INDEX 



ACCEPT statement 4-17 
ACCESS MODE clause 2-9 
ACCESS-PRIVACY label field 3-17; 4-42 
Access methods 2-9, 10 
ACTUAL KEY clause 2-10 

with READ 4-52 

with SEEK 4-61 
ADD statement 4-18 
ADVANCING option 

WRITE statement 4-75 
AFTER option 

PERFORM statement 4-44 
ALL figurative constant B-7 
ALLOCATE request 4-52; 7-7 
Allocation 2-8; 4-41 
Alphabetic items 

JUSTIFIED 3-14 

test at 4-11 

move to 4-36 

PICTURE 3-22, 26 
Alphanumeric items 

edited 3-23 

JUSTIFIED 3-14 

move to 4-36 

PICTURE 3-22, 26 
ALTER statement 4-20 
ALTERNATE AREA 

RESERVE clause 2-8 
Arithmetic expressions 4-4 
Arithmetic operators 4-4 
Arithmetic statements 4-5 
ASCENDING KEY option 

OCCURS clause 3-18 

SORT statement 4-64 
ASSIGN clause 2-6 

with sort files 2-5; 4-64 
AT END option 

READ statement 4-51 

RETURN statement 4-54 

SEARCH statement 4-55 
AUTHOR paragraph 1-1 



BEGINNING option, USE statement 4-72 
Binary items (See COMPUTATIONAL-1, -2) 
BINARY option 

RECORDING MODE clause 3-34 
BLANK WHEN ZERO clause 3-11 

with PICTURE edit 3-31 
Block 3-12 
BLOCK CONTAINS clause 3-12 

file blocking formats F-1 

with OPEN 4-43 



CF option, TYPE clause 5-23 
CH option, TYPE clause 5-23 
CHARACTERS option 

BLOCK CONTAINS clause 3-12 

MEMORY SIZE clause 2-2 
Character address bias 

definition 4-16 

with SEARCH 4-56 
Character set B-1 

Collating sequence D-1 
CLOSE statement 4-21 
COBOL control cards 7-4 

Reserved words vii, viii 

Reserved word list C-1, 2, 3 
CODE clause, report writer 5-9 
Codes, external. Internal, machine, 

printer, punched cards D-1 
Coding areas 7-1 
Coding sheet rules 7-3 
Coding sheet 7-2, 3 
Collating sequence D-1 

COLUMN NUMBER clause, report writer 5-10 
Comment paragraph 1-1 
Common storage section 3-2 
COMP, -1, -2 (See COMPUTATIONAL-1, -2) 
Comparison of numeric operands 4-9 
Comparison of nonnumeric operands 4-9 
Comparison with index names or items 4-10 
Compilation output 7-8 
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Compiler directing statements 4-3 
COMPUTATIONAL-1, -2 options 

USAGE clause 3-40, 41 

with OCCURS 3-19 
COMPUTATIONAL-n items 

in arithmetic statements 4-5 

with DISPLAY statement 4-24 

with SEQUENCED ON 3-37 
COMPUTE statement 4-23 
Conditional statements 4-3 
Condition -name B-3 
Condition-name condition 4-12 
Condition-name entry 3-10 
Conditions 4-6 

Class 4-11 

Comparison 4-9,10 

Condition-name 4-12 

Evaluation rules 4-12 

Relation 4-7 

Sign 4-10 
CONFIGURATION SECTION 2-1 
Connectives B-9 
CONSOLE 2-3 
Constants 

figurative 3-6; B-7 

(See initial value) 
CONTIGUOUS option 

RECORDING MODE clause 3-34 
Control break, report writer 5-2 
Control cards 

COBOL 7-4 

MASTER 7-6 
CONTROL FOOTING option 

TYPE clause 5-23 
Control groups, report writer 5-2 
CONTROL HEADING option 

TYPE clause 5-23 
COPY statement 6-1 

Data description entry 3-9, 10 

FILE-CONTROL paragraph 2-5 

File description entry 3-7 

I-O-CONTROL paragraph 2-10 

OBJECT-COMPUTER paragraph 2-2 

Procedure division 4-2 

Report description entry 5-6 

SOURCE-COMPUTER paragraph 2-2 

SPECIAL-NAMES paragraph 2-3 



/CORR 






option 4-14 



( CORRESPONDING J 

ADD statement 4-18, 19 

MOVE statement 4-35, 37 

Subtract 4-68 
CRT 2-6 

files assigned to 3-33 

labels 3-16 
CURRENCY SIGN clause 2-4 



Data division xiii; 3-1 

clauses 3-12, report writer 5-9 

entry formats, report writer 5-4 

entry formats , report writer 5-4 
Data division sections 3-1 
Data map 7-9 
Data -name 3-6; B-3 

(See user defined words, words) 
DATA RECORDS clause 3-7, 13 
DATE -COMPILED paragraph 1-1, 2 
DATE -WRITTEN paragraph 1-1 
DE option, TYPE clause 5-23 
Debugging 4-17, 70 
DECIMAL option 

RECORDING MODE clause 3-34 
DECIMAL POINT is COMMA clause 2-4 
Decimal point alignment 3-14, 25 

assumed 3-24 

PICTURE character 3-25, 28 
Declaratives description 4-2 
DECLARATIVES specification 4-1 
*DEF card 7-7 
DENSITY option 

RECORDING MODE clause 3-34 
DEPENDING ON option 

GO TO statement 4-31 

OCCURS clause 3-18 

RECORD CONTAINS clause 3-33 
DESCENDING KEY option 

SORT statement 4-64 
DETAIL option, TYPE clause 5-23, 24 
DETAIL, FIRST/LAST option 

PAGE LIMITS clause 5-16 
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Diagnostics I-l 

Blocker /deblocker 1-27 

COBOL rule violation 1-24 

*DEF 1-27 

Environment division 1-2 

Fatal error 1-25 

Generator 1-24 

Identification division 1-2 

I-O object time 1-28 

MIOCS 1-27 

Object time 1-26 

OCARE 1-27 

Operator Messages I-l 

Procedure division 1-13 

Report writer I-IO 
object time x- 26 

Rerun-restart 1-26 

Sort -object time 1-26 

System reject conditions 1-27 

Terminative 1-28 

UCBL I-l, 25 

USASl/COBOL SORT 1-26 
DISK 2-6 

DISPLAY option, USAGE clause 3-40 
DISPLAY statement 4-24 
DIVIDE statement 4-25 
Divisions xi 
dsi 2-6 



Editing 3-22, 29 

fixed insertion 3-29 

floating insertion 3-30 

rules 3-28 

simple insertion 3-28 

special insertion 3-28 

zero suppression 3-31 
EDITION-NUMBER label field 3-17; 4-42 
Element character offset 

definition 4-16 

with SEARCH 4-56 
Elementary item 3-5 
ELSE option, IF statement 4-32, 33 
END DECLARATIVES 4-1, 2 
END OF REEL/UNIT option 

RERUN clause 2-11 
ENDING option, USE statement 4-72 
ENTER statement 4-26 



Entry xii; 3-4 

Environment division xiii; 2-1 

diagnostics 1-9 
Error diagnostics 7-8; I-l 
ERROR PROCEDURE option 

USE statement 4-72 
EXAMINE statement 4-29 
EXIT statement 4-30 

with PERFORM 4-45 
Expressions, arithmetic 4-4 



FD entry 

Specification 3-7 

Specification, report writer 5-5 

with OPEN 4-41 

with SORT 4-64 
Figurative constant 3-6; B ^7 
File blocking formats F-1 
FILE CONTROL paragraph 2-5 

with SORT 4-64 
File description entry 3-7 

report writer 5-5 
FILE LIMIT clause 2-8 
file -name 3-7, 8 

(See user defined words , words) 
FILE option, USE statement 4-72 
FILE SECTION 3-2 
FILLER 3-6, 9, 38 
FINAL 

control break 5-23, 24 

CONTROL FOOTING 5-24 

CONTROL HEADING 5-23, 27 
FINAL option 

CONTROL clause 5-11 

RESET clause 5-19 

TYPE clause 5-23 
FIRST DETAIL option, PAGE LIMIT clause 5-16 
Floating point 

edit 3-23 

items (See COMPUTATIONAL-2) 

literal B-4, 5 

MOVE 4-35, 36 
FOOTING option, PAGE LIMIT clause 5-16, 17 
FROM option 

COMPUTE statement 4-23 

RELEASE statement 4-53 

SUBTRACT statement 4-68 

WRITE statement 4-74 
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GENERATE statement, report writer 5-26, 27 
GIVING option 

ADD statement 4-18 

DIVIDE statement 4-25 

MULTIPLY statement 4-39 

SORT statement 4-64, 65 

SUBTRACT statement 4-68 
GO TO statement 4-31 

with ALTER 4-20 

with PERFORM 4-45 
GROUP INDICATE clause, report writer 5-12 
Group item 3-5 



INPUT PROCEDURE 

SORT statement 4-64, 65 
I-O-CONTROL 2-9 

I-O option (See INPUT-OUTPUT option) 
I-O Summary of options G-1 
INSTALLATION paragraph 1-1 
INTO option 

READ statement 4-51 

RETURN statement 4-54 
INVALID KEY option 

READ statement 4-51 

WRITE statement 4-74 
Item 3-4 



Hardware name 2-3, 5, 6, 11 
HEADING option 

PAGE LIMITS clause 5-16, 17 

TYPE clause 5-23 
HIGH option, RECORDING MODE clause 3-34 
HIGH-VALUE, figurative constant B-7 
HYPER option 

RECORDING MODE clause 3-34 



ID label field 3-17; 4-42 
IDENTIFICATION DIVISION xii; 1-1 

diagnostics 1-2 
Identification label field 3-17; 4-42 
Identifier 4-4; B-4 
IF statement 4-32 
Imperative statements 4-3 
Implementor name 2-3 
Independent item 3-5, 10 
Index data item 3-42; 4-55, 56, 62 
Index-name 3-17; 4-15, 55, 56, 62 
INDEX option, USAGE clause 3-40 
INDEXED BY option, OCCURS clause 3-18 
Indexing 4-15 
Initial value 3-6 

INITIATE statement, report writer 5-28 
iQput file labels 3-16 
Input files, CLOSE statement 4-21, 22 
INPUT option, OPEN statement 4-41 
INPUT -OUTPUT option 

OPEN statement 4-41 

USE statement 4-72 
INPUT-OUTPUT SECTION 2-4 



JOB card 7-6 

Justification, MOVE statement 4-36 

JUSTIFIED clause 3-14 



KEY IS option, OCCURS clause 3-18 

with SEARCH statement 4-55, 57 
Key words B-6 



Label 

magnetic tape E-6 
header E -6 
ending E-7 

mass storage E-1 

procedure 4-72 

standard file E-1 
LABEL RECORDS clause 3-16 
Language elements vii 
Language name 4-26 
LAST DETAIL option 

PAGE LIMIT clause 5-16, 17 
Level indicator 3-2; 5-1, 4 
Level number ix; 3-5, 9 

01 3-5, 9, 10; 5-1, 6 

66 3-5, 9, 10, 35 

77 3-5, 9, 10 

88 3-5, 9, 10 
Library 6-1 

Source preparation 6-3 
LINE COUNTER, report writer 5-3, 7 
LINE NUMBER clause, report writer 5-13 



Index-4 



60229400 



Listings, source/symbolic 7-8 
Literal ix; 3-6; B-4 
Literal IS mnemonic -name option 
SPECIAL-NAMES clause 2-3 
LOCK option, CLOSE statement 4-21 
Ijogical record 3-12 

LOW option, RECORDING MODE clause 3-34 
LOW -VALUE figurative constant B-7 



Mass storage-USASI diffel-ences H-1 
MASTER control cards 7-6 
MEMORY SIZE, OBJECT COMPUTER 

paragraph 2-2 
Messages (See diagnostics) 
Mnemonic names 2-3 
MODE 

ACCESS 2-9 

RECORDING 3-34 
MODIFICATION-PRIVACY label field 3-17; 4-42 
MODULES option, MEMORY SIZE clause 2-2 
MOVE statement 4-35 
MULTIPLE FILE clause 2-12 
MULTIPLE REEL/UNIT clause 2-8 

with sort files 2-5; 4-64 
MULTIPLY statement 4-39 



Name (See data -name; word; user defined word) 
NEGATIVE 4-10 

NEXT GROUP clause, report writer 5-15 
NEXT PAGE option 

LINE NUMBER clause 5-13 
NEXT SENTENCE option 

IF statement 4-32 

SEARCH statement 4-55 
NO REWIND option 

CLOSE statement 4-21, 22 

OPEN statement 4-41 
Nonnumeric literal B-5 
NOT 4-6, 12 
Notations xiii, xlv 
NOTE statement 4-40 
NUMERIC 4-11 
Numeric 

edit 3-23 

literal B-5 



Numeric items 

with JUSTIFIED 3-14 
with PICTURE 3-12, 26 
in class condition 4-11 
with MOVE 4-35, 36 



OBJECT COMPUTER paragraph 2-2 
Object program 7-9 
OCCURS clause 3-18 

with indexing 4-15 

with REDEFINES 3-35 

with SEARCH 4-55 

with SET 4-62 
OMITTED option, LABEL RECORDS clause 3-16 
ON SIZE ERROR option 4-13 

ADD statement 4-18 

COMPUTE statement 4-23 






-25 
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MULTIPLY statement 4-39 

SUBTRACT statement 4-69 
OPEN statement 4-41 
Operators 

arithmetic 4-4 

logical 4-6 

relational 4-7 
OPTIONAL option, SELECT clause 
Optional words B-6 
Options m statements 4-14 
OUTPUT option, OPEN statement 4-41 
Output 

Compilation 7-8 

file labels 3-17 

files, CLOSE statement 4-21, 22 

Procedure 4-72 

(OWNER ),.,..,, o T,. . .o 
ioWNER-mr^^^l^^^^'^ 3-17; 4-42 

Page break, report writer 5-2 

PAGE COUNTER, report writer 5-4 

PAGE FOOTING option, TYPE clause 5-23, 24 

PAGE HEADING option, TYPE clause 5-23 

PAGE LIMIT clause, report writer 5-15 

Paragraphs xl 

Parameter string, ENTER statement 4-26 

PERFORM statement 4-44 

with USE procedures 4-72 
PF option, TYPE clause 5-23, 24 
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x; 3-22 



PH option, TYPE clause 5-23 
Physical record (See Block) 
I PIC J 

I PICTURE/ 

Edit 3-28 

Symbols x; 3-24 
PLUS option 

LINE NUMBER clause 5-13 

NEXT GROUP clause 5-15 
POSITION option, MULTIPLE FILE clause 2-12 
POSITIVE 4-10 
PRINTER 2-6 

PRIVACY label field 3-17; 4-42 
Procedure division xiii; 4-1 

Diagnostics 1-13 

Report writer 5-26 

Statements 4-17 
Procedure name 4-2; B-3 
PROCEED TO option 

ALTER statement 4-20 
Program contents xii 
PROGRAM ID paragraph 1-2 
Program structure xi 
PUNCH 2-6 
Punctuation B-9 



Qualifier B-4 
connective 



B-9 



Random access 2-9 
READ statement 4-51 

random access files 2-9 

sequential access files 2-9 
READER 2-6 
Receiving item 

JUSTIFIED clause 3-14 

MOVE statement 4-35 
Record 3-5 

01 level data description entry 3-9, 10 
RECORD option 

READ statement 4-51 

RETURN statement 4-54 

SEEK statement 4-61 
RE CORD (S) 

DATA clause 3-13 

LABEL clause 3-16 



RECORD CONTAINS clause 3-33 

file blocking formats F-1 

with OPEN 4-42, 43 

with SEQUENCED ON 3-37 
RECORD MARK option 

RECORD CONTAINS clause 3-33 
RECORDING MODE clause 3-34 
RECORDS option 

BLOCK CONTAINS clause 3-12 

RERUN clause 2-11 
REDEFINES clause 3-35 

with COMPUTATIONAL-2 3-41 
REEL option 

CLOSE statement 4-21 

MULTIPLE clause 2-8 

RERUN clause 2-11 

USE statement 4-72, 73 
REEL NUMBER label field 3-17 
Reference format xiii; 7-1 
Relation condition 4-7 
RELEASE statement 4-53 

with SORT statement 4-64 
REMARKS paragraph 1-1 
RENAMES clause 3-9, 10, 36 
RENAMING clause 2-6 
REPLACING option 

COPY statement 6-1 

EXAMINE statement 4-29, 30 
Report 5-1 

REPORT clause, report writer 5-6 
Report description entry 5-6 
Report group 5-1 

REPORT FOOTING option, TYPE clause 5-23, 24 
REPORT HEADING option, TYPE clause 5-23 
Repwrt group description entry 5-7 
Report item 3-5; 5-1 
Report -name 5-5, 6 
Report section 3-1, 4; 5-1 
Report writer 5-1 

clauses 5-5, 8 

diagnostics 

sample program 5-31 

statements 5-26 
RERUN clause 2-11 
Rerun dump 7-9 
Rerun/restart procedures 7-9 
RESERVE ALTERNATE AREA 2-8 

with sort files 2-5; 4-47 
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Reserved words vii, viii 

list of C-1, 2, 3 
RESET clause, report writer 5-19 
Restart 7-9 

RETENTION CYCLE label field 3-17 
RETURN statement 4-54 

with SORT statement 4-65 
REVERSED option, OPEN statement 4-41 
REWIND option 

OPEN statement 4-41 
RD entry 5-1,6 

RF option, TYPE clause 5-23, 24 
RH option, TYPE clause 5-23 
ROUNDED option 4-13 

ADD statement 4-18 

COMPUTE statement 4-23 

DIVIDE statement 4-25 

MULTIPLY statement 4-39 

SUBTRACT statement 4-68 
Routine name, ENTER statement 4-26 
RUN option, STOP statement 4-67 



SAME AREA clause 2-12 
Sample program A-1 

COBOL decks 7-11 

report writer 5-31 
SCHEDULE card 7-6 
SCRATCH 2-6 
SD entry 3-8 
Search function 4-16 
SEARCH statement 4-55 
Sections xl; 3-1 

Common storage 3-2 

File 3-2 

Report 3-4; 5-1 

Working storage 3-3 
SECTOR option 

RECORDING MODE clause 3-34 
SECURITY paragraph 1-1 
SEEK statement 4-61 

with ACTUAL KEY 2-10 

with READ 4-52 
SEGMENTED option 

RECORDING MODE clause 3-34 
SELECT clause 2-6 

with sort files 2-6; 4-64 
Sentences 4-3 



SEQUENCED ON clause 3-37 
SEQUENTIAL 

ACCESS 2-9 

PROCESSING 2-9 
SET statement 4-62 

with SEARCH 4-57 
Sign 

condition 4-10 

currency 2-4; 3-25 

operational 3-22, 23, 24, 25 
SIZE ERROR option 4-13 

ADD statement 4-19 

COMPUTE statement 4-23 

DIVIDE statement 4-25 

MULTIPLY statement 4-39 

SUBTRACT statement 4-5 
SORT statement 4-64 

with RELEASE 4-53 

with RETURN 4-54 

with SAME SORT AREA 2-12 
SOURCE clause, report writer 5-20 
SOURCE COMPUTER paragraph 2-2 
Source library preparation 6-3 
Source program listing 7-8 
SPACE, figurative constant B-7 
SPECIAL NAMES paragraph 2-3 

with ACCEPT 4-17 

with DISPLAY 4-24 
Special registers B-6 
Statements 4-3 

Arithmetic 4-5 
STOP statement 4-67 
Subscripts 4-15 
SUBTRACT statement 4-68 
SUM clause, report writer 5-20, 21 
Symbolic listing 7-9 
Symbols x 

{sSJchronized}''^^^^" '-'^ 
system-input 2-3, 6 
system-output 2-3, 6 
system-punch 2-3, 6 



Tables 3-18, 19, 20; 4-55, 62 

handling 4-16 
TALLY, special register 4-29; B-6 

as subscript 4-15 
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TALLYING option, EXAMINE statement 4-29 WRITE statement 4-74 

TAPE 2-6 with ACTUAL KEY 2-9, 10 

Task name cards 7-8 

Terminal unit identifier 2-6 

TERMINATE statement, report writer 5-29 ZERO 4-16 

THRU option, RENAMES clause 3-36 figurative constant B-7 

TIMES option, PERFORM statement 4-46 Zero suppression editing 3-31 

TRACE statement 4-78 

TRACK option, RECORDING MODE clause 3-34 

TTY 2-6 

files assigned to 3-33 

labels 3-16 
tui 2-6 
TYPE clause, report writer 5-23 



UNIT option 

CLOSE statement 4-22 

RERUN clause 2-11 

USE statement 4-72 
UNTIL option, PERFORM statement 4-44, 47 
UPON clause 

DISPLAY statement 4-24 

SUM clause 5-20, 21 
USAGE clause 3-40 

with SEQUENCED ON 3-37 
USASI specifications, preface iii 
USASI vs. mass storage H-1 
USE BEFORE REPORTING 4-72; 5-30 
USE statement 4-72 
User defined words viii 
USING option, SORT statement 4-64 



VALUE clause 3-44; 5-20 

with COMPUTATIONAL-2 3-41 

with OCCURS 3-20 
VALUE OF option, LABEL RECORDS clause 3-17 
VARYING option, PERFORM statement 4-44, 47 



WHEN option, SEARCH statement 4-55 

WITH CODE clause, report writer 5-9 

Words viii; B-2 
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